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COMMAND LINE WAS: SNAPS PROD, , .PRGCfGBGLX 



INCLUSION 
INCLUSION 
INCLUSION 
INCLUSION 
INCLUSION 
INCLUSION 
INCLUSION 
INCLUSION 
INCLUSION 
INCLUSION 



At PROCPARM/TXT 

Bi PMACMIC/TXT 

C: GMACROZ/TXT 

D: PORTASGN/TXT 

e: proceous/txt 

f: moef1800/txt 

G: 8DEF1800/TXT 

h: portequs/txt 

t: ddef1800/txt 

j: hdef1800/txt 



PROGRAM name: PROD 
PROGRAM ADDRESS BLOCKS: 



EXTERNAL DEFINITIONS: 



SIRB 


002000 


FETCHI 


002024 


NOJ 


002426 


PSHST0 


002070 


JUMP 


«02433 


POPST0 


002166 


JUMPCC 


002423 


LDS 


002513 


SRVRPT 


002611 


IRNXT 


003611 


DL$DO 


003000 


MTART 


003424 



010000 

167400 
170000 
002000 

§00000 



SIRX 

FETCHS 

CALL 

PUSH 

RETURN 

POP 

LD6 

AP4 

SRVNXT 

ITINT 

LODCF 

ITNXT 



/ABSOLUTE/ 

/SYSIVR/ 

/SVSROM/ 

/PRODL/ 
/PRODP/ 



002010 
002026 
002046 
002120 
002163 
§02216 
002454 
002516 
002616 
003666 
003255 
003670 



EXTERNAL REFERFNCES (UNDEFINED SYMBOLS!: 
SCROML SCRAM RIN16 SYSRET1 IVIOLS 



SIZE«000000 CABS) 

SIZE-000400 (ABS) 

SIZE-000047 CABS) 

SIZE»002000 (ABS) 

SIZE-004000 (RED 



MBPAGE 



FETCHI 

SRVDO 

MEMPFS 

PUSHI 

RETCC 

STKS 

L07 

AP7 

SRVRTW 

IRINT 

BEEP 

AMLRET 



SCLST 



002020 
002620 
002225 
002126 
002160 
PI02305 
002464 
002525 
002634 
003600 
003335 
W03550 



8CR0M 



FETCH 


002022 


CALLCC 


0102042 


PCMQD 


002110 


FIROJ 


002152 


RETS 


002212 


SYSRET0 


002374 


L7S 


002502 


APS 


002540 


AC»DO 


003400 


SRVBSN 


002755 


CLICK 


003351 



( 
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j 

10. 
H 

13, 

*< 
15 J 

is; 

18. 

l9 f 

20. 

81. 

83, 
84 J 

87, 
28, 
89, 
30. 



• 


2,9. L 


HJS 


78 


JUL 


18 


t 


8,9, K 


HJS 


78 


JUN 


16 


• 


8,9, K 


HJS 


78 


APR 


23 


• 


Z * 9 • J 


HJS 


78 


M A R 


80 


• 


2,9.1 


HJS 


78 


FEB 


27 


» 


2 » y • h 


HJS 


78 


FEB 


16 


• 


2,9. G 


HJS 


78 


FEB 


3 


• 


2,9,F 


HJS 


78 


JAN 


11 


t 


8,9. E 


HJS 


78 


JAN 


4 


• 


8,9,0 


HJS 


77 


DEC 


21 


• 


2.9.C 


HJS 


77 


DEC 


13 


• 


2,9,8 


HJS 


77 


NOV 


20 


t 


8.9. A 


HJS 


77 


NOV 


14 


w 

t 


2j»8,B 


HJS 


77 


SEP 


22 


• 


2.8. A 


HJS 


77 


SEP 


19 


w 
* 

* 

• 


8.7. 


HJS 


77 


SEP 


7 


2.H.B 


HJS 


77 


AUG 


31 


• 


2,5,C 


HJS 


77 


AUG 


16 


• 


8,5,B 


HJS 


77 


JULY 


13 


• 


8. 5, A 


HJS 


77 


JULY 


12 


w 

t 


2.4.8 


HJS 


77 


JULY 


18 


t 
• 

* 


2. 4. A 


HJS 


77 


JULY 


7 



FIX ANOTHER HONEYWELL BUG 

FIX BUG INTRODUCED IN HONEYWELL CODE CTZ TO FZ) 

SPLIT PRHC, MAKE RELOCATABLEi CHANGE APF, ADO AMI 

RESTRUCTURE INTERRUPT SEQUENCE & MINOR MODS 

CORRECT 9,H FOR FAULT CLEANUP 

EVERYBODY MEMPF'S, KEYBOARD SCAN, A SIR CHANGE 

CORRECT TIMING, COMMENTS, £ ADO PQR TIMEOUT 

FIXING MIN/MOUT TIMINGS 

TESTING REPEATED KEVIN CONTROLS 

CORRECT STL INSTRUCTION 

BACK OFF FROM KBD RPT * RE*DO STL FOR TIMING 

INCLUDE TIMINGS AS CALCULATED * FIX MINOR BUGS 

CHANGE KEYBOARD CODE TO AID REPEATED KEY CONTROL 

MTI CHANGE SO LENGTH IS 2 BYTE NUMBER 

MTI CHANGE TO ALLOW MFRPT ON ANY INTERRUPT 

MINOR BUG^FIX AND OPTIMIZATION FOR RELEASE 

MTI SPECIAL VERSION 

UPDATE COMMENTS ON THE CODE 
CORRECTED NAMES FOR COM REGISTERS 
UP TO NEXT NEW VERSION NUMBER 

FIXED ILLEGAL MAR CHANGE IN REGL RETURN TO FETCH 
FIXED FILE TO CONFORM TO VRP FORMAT (A LITTLE) 
INITIAL PRE-RELEASE OF THE MICROCODE 
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31. 

92i 

331 

34, 

35, 
36, 
37j 
38, 
39, 
40, 

43, 

45! 
46 f 

47, 

48, 
49. 

50, 

si: 

32, 

S3 

54; 

55, 

56, 

57, 

s 8 ; 
59; 

60, 
6i, 
62. 
6 3 ; 
64j 

65, 
66 
87, 
68. 



00200W 

000000 

00261018 
000000 
002000U 



USEFUL INFORMATION TO BE PASSED ON: 



********************************************* 
FINING SEKBS1 IS WRITE PROTECTED THEN CAN NOT 



*************** 

IF SECTOR CONTA. .,-..« „......„. .„ ....... ..,,.. ; ^ ( , ,.,.- ....... *.„„ .,„, 

*********************************************************** 

DLSDO COOE, ACCSDO & SVSRET FORCEl PRIVEO MODE TO BE SURE C 
MEMORY THAT PROTECTED* FXIQ, COMM MUST DO THIS ALSOU 

*********************************************************** 

ALL SMR'S AND MOW'S MUST HAVE FOLLOWING MWAIT »MEMPFX 

IN THE CODE EVEN IF MWAIT ,$*1 IS USED (IGNORING MEMORY FA 

*********************************************************** 

FOR TESTING MEMPF, CHANGE MWAIT MACRO TO BE JT.MP $+1 <<< 
CODE THERE, TESTABLE AS USED BUT NO EFFECT!! 

*********************************************************** 

EACH SERVICE ROUTINE THAT USES THE MAR MUST HAVE A MWAIT ,S 
MAR CHANGED, IF NOT USED, RETURN THROUGH SRVNXT! 

*********************************************************** 

ALL INPUTS FROM A PORT INSTRUCTION SHOULD BE LOGICAL (OUTPU 

LOGICAL OR 'ITi), 

ARITHMETICS MAY BE DONE DM INPUTS WITH CAUTION, 

TIME, . . MDR IS OK, BUT IMPI OR URI ARE NO-NO'S. 

*********************************************************** 

DELAY AROUND SECTOR TABLE WRITES IS NOT NECESSARY. 

*********************************************************** 

DELAY DURING FONT LOAD IS ONLY AFTER LDCH, 

FROM AFTER LDCH TO ANY OF RDLM, SOLM, «•"• 

ALSO, RDLM AND SDLM SHOULD NQT BE TOO „„.,*.„ ,.„,„,.,„,„ 

*********************************************************** 



****************** 

DO A RESTART1UU 

****************** 
AN WRITE/ACCESS 

****************** 

EVERYWHERE 

ULT) 

****************** 



****************** 
♦1 BEFORE THE 

****************** 
T CAN ONLY 8E 



IF THE DATA HAS NO SETUP 

****************** 



A 400 SEC. 
- SKCH, MAROL, OR 
TOO CLOSE TOGETHER, 



DEL 

LOM 



****************** 
AY IS NECESSARY 
AP. 

****************** 



* 
PRODL 


INC 


PROCPARM 


ORG 


PROD 


PRQDP 


ORG 





PRODL 


USE 


PRODL 




USE 


PRODP 


PROOP 


LOC 


PRODL, 2 



LOGICAL SPACE DEFINED IN PLACE 
PHYSICAL SPACE RELOCATABLE 
USE THEM BOTH 

PUT THE CODE IN PHYSICAL SPACE 
WITH ADDRESSES IN LOGICAL SPACE 
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7 * 
72, 

7 *T 

75 r 
7 K 

77. 
78. 
79*. 



80, 

si. 

82*. 



83, 

84, 
85, 
861 
87. 
88* 
89, 
90* 
91, 
92, 
93, 
94, 
95, 
96, 

97 f 
98. 



99, 

100. 



101. 

102i 
103. 



PRQD/TXT 



002*0&L 



002000L 
002001L 
002002L 
002003U 
002004L 
002005L 
002006L 
0020071 

002010L 



0&2010L 
002011L 
002012L 
002013L 
002014L 
0«2015L 
002016L 
002017L 



00110111 
00110111 

11011000 

01010001 

00110111 
00110001 
00110001 
11001111 



00110111 
00110111 

11011000 
01010101 
00110111 
00110001 
00110001 
U0011H 



00001100 
01000111 

11101110 
00010000 
00000001 
10001001 
10101000 
11100011 



00001 100 
01000111 
11101110 
00000111 
00000001 
10001001 
10101000 
11100011 



MICRO-PROCESSOR EMULATION SUPPORT CODE 
t IMPLICIT REGISTER SELECTION 



SEE PAGE 1 

HJS * 



* 
SIR0I 



* 
SIRXl 



( 



0225 XA 



T *• IMPS 

MAR «- MAR ♦ 1 

FITCH 



STB 

BRA 
LOPI 

IUOX 

BRA 



I M A R i S M R 

IVI0L2,FP,IZ 
LIMP, IMPS 

MR2PC 
FETLIMP 



un 

0625 
1135 
1745 
1155 
1765 
1175 



C 
D 
E 
H 
L 
X 



IMP *m T .AND, 7 
MAR «<* MAR + 1 
FITCH 

STB IMAR,SMR 

BRA IVIOL2,F#,IZ 
OQPI LJMP,ND,7 

OLOX MR2PC 

BRA FETLIMP 
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SELECT XA REGISTER PAIR 



START TO GET THE OP-CODE 

MULTIPLE IMPLICITS IN A ROW IS ERROR 



SELECT 8 OR IMP ODD 

SELECT C OR BC OR IMP EVEN 

SELECT D 

SELECT E OR DE 

SELECT H 

SELECT L OR ML 

SELECT X 

T CONTAINS OPCODE FROM FETCH 



START TO GET REAL OPCODE 

MULTIPLE IMPLICITS IN A ROW IS ERROR 
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107', 
108, 
1091 
110, 
111. 
H21 
113, 
114. 
115, 
116, 
117j 
118, 
119. 
120; 

121, 

182, 
123, 
124, 

125, 
1261 
127. 

128*. 

129*. 

130*. 

131*. 

1321 
133j 
134, 
135, 
136. 



137*. 
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138'. 
139'. 



002020L 
002021L 
002022L 
002023L 
002024L 
802025L 
002026L 
002027L 
002&30L 
802831L 
002032L 
002833L 
002034L 

802034L 
882035L 
082036L 
002037L 
00204BL 
002041L 



11000100 
11000111 

001100311 
00110001 

00110111 

00110111 

00U0001 

00110001 
01010001 
00110111 

00110001 
11010010 



11000100 
11000111 
00110001 
00110111 
00111001 
10101111 



11101111 
01101811 
11001001 
11181800 
00801100 
01000111 
10001801 

10101000 
00000000 

00080001 
80110800 
0110U11 



11100011 

01101811 

00110110 

00088008 
08110100 
08118011 



GET NEXT INSTRUCTION IN SEQUENCE AND GO TO IT 

UNLESS SERVICE REQUEST INTERFERES (RETURNS TO S*VENO SO CODE CAN NEVER 

BE LOCKED OUT!) 



FETCHW* 

fetch's 

FETCHI* 
I 
FETCHSl 



MMAIT 
MAR <- PC 

MAR <» MAR ♦ 1 



PC «• MAR 
IMP <- 

IF SRVREQ THEN SRVDO 



SRVENQ* 
FITCH* 



FETCHW: 
FETCH* 
FETCHI* 
FETCHS* 



SRVEND 



TREG <* T <» (MAR) 
CASE (IDCOO(IREG)) 



MWAIT 

OLOX 

STB 

DLDX 

LOPI 



FETLIMp MWAIT 

LDPP 
SRVID BRPX 



,M£MPF2 

PC2MR 

IMAR,SMR 

MR2PC 

LIMP,0 



TSTPT FI, SRVREQ 
BRA SRVDO, FZ 



♦MEMPF2 

LIREG,MOR 

IDCOD 



ENTRY IF WRITE OPERATIONS LAST 

ENTRY IF MAR MUST BE LOADED (NORMAL) 

ENTRY IF PC IN MAR NEED ONLY UPDATE 

ENTRY POR JUMP OR CALL (P.C, OK) 

IMPLICIT REGISTER ZERO 

SERVICE REQUEST? 

YES, DO IT & SAVE MAR ETC, FOR RETURN 

SERVICE RE-ENTRY, IMP, MAR & PC ALL OK?? 

ERROR IF MEMORY FAULT 

LOAD INSTRUCTION REGISTER 

GO TO THE ROUTINE 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 
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9 



142. 

143 002842L 

144. 

1451 

146. 

1471 

148, 

149 

150 

1511 

152, 

1531 

154, 

155, 

156, 

157. 

158, 

159. 

i60 ? . 

161, 
162. 
1631 

1641 
165; 
166, 
167, 
168. 
1«9, 
170. 

i7i; 

172, 
173, 
174, 
1751 
176; 
177, 
178. 

179'. 

isa; 

I8f, 

182. 



183; 

184. 



las; 
ise; 



802042L 
002043L 
002044L 
002045L 

002048L 



802846L 
002047L 
002050L 
002051L 
0PI2052L 
802053L 
002054L 
002055L 
002056L 
082057L 
002060L 
002061L 
302062L 
002063L 
002064L 



H001000 
00110001 
01000101 
11010011 



00110111 
00110111 
01010001 
00110111 
110001001 
11000111 
00110001 
00110111 
00110U1 
01101111 
11000100 

11080111 

00110001 

01101111 

00110111 



10018100 

00110001 

00800001 
11101001 



00001100 
01000111 
00001001 
00080001 
11010181 
01181010 
00110110 
00081180 
01000111 
11110810 
11081111 
81101010 
00110118 
11110001 
08001100 



CALLCCI 








• 9.95 


( 


1G2) 


CCC.LSB.MSB 


. 3.18 


IF NOT 


TAKEN 






( 


102) 


CFCLS0.N8B 




( 


112) 


CF2,L8B,MSB 




( 


122) 


CFS ? LSB,MSB 




( 


132) 


CFP,LSB,M$8 




C 


142) 


CTC.LSB f MSB 




C 


152) 


CTZ,LSB,M8B 




( 


162) 


CTS,LSB,MS8 




( 


172) 


CTP.LSB.MSB 


\ 9,15 


(in 


102) 


UR 




(IMP 


1C2) 


UR 



* 

CALLt 
9.50 



IF IMP NOT ZERO THEN U8ERET 

ELSE IF NOT CC THEN NOJ 

ELSE CALL 

BRA USERET,FP,IZ 
TSTIP ,STUSCF, STATUS 

BRA NOJ,TZ 



( 106) 
(IMP 186) 



CALL, LSB, MSB 
PAD.LOC 



MAR <- MAR ♦ 1 

IMP <* PC 

TEMPL <- (MAR) 

MAR «• MAR ♦ 1 

TEMPH <• (MAR) 

PC «• MAR 4m MAR + 1 

PSHSTK (PCMOO) 



STB 


IMAR,SMR 


LDPI 


LIMP,PCL 


MWAIT 


, MEMPFS 


LDTP 
STB 


MOR 
IMAR,SMR 


LDRT 
MWAIT 


TEMPL 

,MEMPFi 


LDRP 


TEMPH, MOR 


STB 


IMAR 



CONDITIONAL CALL 

FALSE CARRY 
FALSE ZERO (>E,) 
FALSE SIGN (,GE.) 
FALSE PARITY (EVEN) 
TRUE CARRY 
TRUE ZERO (,EQ.) 
TRUE SIGN (,LT.) 
TRUE PARITY (ODD) 

USER RETURN 

PAGED OPERATION TO A REGISTER 



USER RETURN, NOT A CALLl 
IS USER CC CORRECT? 

NO, 00 NOJ NOT A RETURN 



UNCONDITIONAL CALL 
PAGED ADD TO A REGISTER 



PUSH PC ON THE STACK 

RETURN TO PCMOO (LOADS PC FROM TEMP) 

GET THE ADDRESS TO CALL 

PC TO BE PUSHED ONTO THE STACK 



SAVE LSB 

SAVE MSB 

POINT MAR TO THE NEXT INSTRUCTION 



DATAPOINT CONFIDENTIAL INFORMATION • SEE PAGE t 

PAGE 8 PROD/TXT MICROPROCESSOR EMULATION SUPPORT CODE - MJ5 * 78JULS0 11144 

, SUBROUTINE CALL AND STACK PUSH 

187*. 002065L 03)1100)01 10001001 DLOX MRgPC 80 PUSHEO P,C, IS CORRECT 

002066L 00110001 10101000 
188'. 0B2067L 01010001 10110111 BAL ,PCMQO 
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1*9, 
190, 

1921 
193, 

1951 
196, 
197, 
198, 
199. 
200. 



201 1 



202, 
2031 

204. 



205. 
206 

207; 

208! 
209 
210 
211. 
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002070L 
002071L 



002071L 
002072L 
002073L 
002074L 
002075L 
00207SL 
002077L 
0021 00L 
002101L 
002102L 
002103L 
002104L 
002105L 
0«2106L 
002107L 



01101111 10110000 



00110001 
01010100 

01010011 
00110111 

0011011! 
00110001 

00110001 
051110111 
00110111 

00110001 
11000100 

11000111 
00110111 

0*11011! 

11101111 



11011011 

00000010 
01000000 

10001011 

11000000 

11101010 

11011111 

00100001 
00001001 

ii«itiii 

10111100 

10111000 
00001100 
00100001 
00000000 



PSH8T0I 
PSH8TK 
. 2.30 



8AS LINK,CC 

♦ 0.20 INTO MEMORY WAIT 



IN-PAGE ENTRY TO PUSH 

OFF-PAGE ENTRY (LINK RETURN PRE-LOADED5 

MUST HAVE CARRY CLEAR TO USE THIS ENTRY 



NOTE! CAN NOT PARITY CHECK IN HERE OR LOST FOREVER WITH 
MEMPFS & SYS CALL & PUSH Hi 



SP «. SP - 2 (MODULO 128) 
(SP,SP+t) <• IMP, IMP-1 

DOTIP ,SB,2,SPIL 
DOPI SPOL,OR,0100 



LDPT 

LDX 

LOPP 

STB 

LOTP 

MWAIT 

STB 
LDPT 
MEMPFPS BRR 



MAROL 

SP2MRH 

MDW,IMPI 

DIMP 
IMPI 
,MEMPFPS 

IMAR 

MOW 

LINK 



LSB THEN MSB 

UPDATE THE SP 

MAKE SURE EVEN & WRAP AROUND (MOD 32/64) 

SAVE UPDATED LSB 
POINT TO MEMORY STACK 
STORE LSB THERE 



PRE-LOAD MSB DATA TO WRITE 

*** LET THE CALLER WORRY ABOUT IT *** 

NOW POINT & DO THE MSB TO FINISH OFF 



*•* NOTE ROUTINE CALLING PSHSTK DR PSH8T0 MUST HAVE MWAIT f AODR *** 
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PAGE H 



PROD/TXT 



MICROPROCESSOR EMULATION SUPPORT CODE • HJS • 
, SUBROUTINE CALL AND STACK PUSH 



78JUL20 11*44 



212 

213! 0021101 

2151 

216, 

217 

218^ 00211&L 
002U1L 

219'. 002U2L 

002H3L 

002114L 

002115L 

, 002116L 

228. 002U7L 

221 

222' 002120L 

223, 

224, 

225, 

226. 

228. 
229'. 
230*. 

23 r. 

232' r 
233, 



234'. 



235. 

2361 

237^ 

238, 

239, 

240, 

241, 

242 

243, 

244, 

245. 

2461 

247. 



248'. 



J 49'. 

I501 
151. 



002120L 
002121L 
002122L 
002123L 
002124L 
002125L 

002126L 



002126L 
002127L 
002130L 
002131L 
002132L 
002133L 
002134L 
002135L 
002136L 



11000100 

11000111 
0U10001 

00110111 

01110001 

00110111 
00110111 
11001111 



01010001 

01101111 
11001000 

01010001 
00110111 

11001111 



00110111 

00110111 

01010001 

00110111 

11000100 
11000111 
00110001 
00110111 
00110111 



10110111 
01101010 
11110010 
11000000 
UU0001 
11100000 
01000111 
11101001 



U101111 
10110000 
11000110 
00000110 
00000001 
11000110 



00001100 
010001U 
00001111 
00000001 
10100101 
01101010 
00110110 
00001100 
01000111 



PCMODJ RETURN FROM PSHSTK AND SET NEW PC 

* * * * 3,60 * * * * WITH WAIT FROM PSHSTK ft FETCHS CODE 



* 

PUSHI 

6,40 

8,05 

8.05 

S.@5 



* 

PUSHI! 
9.30 



MAR <m TEMP 

MWAIT ,MeMPF$ 

OLOPR HARD, TEMP, ,SMR 



BRA 



FETCHS 



( 070) PUSH 

(062 070) PUSH 

C174 070) PUSH 

(022 070) PUSH 

(176 070) PUSH 
(IOD 070) PUSH 

IF IMP ZERO Then IMP <■ URL 
PSHSTK (FETCHW) 



LOAD UP SAVED P.C, 



GO TO ADDRESS AT MACRO LEVEL 



HL PUSHED ONTO THE STACK 

8C 

OE 

XA 

HL UNSPECIFIED 

MIXED REG PAIR UNSPECIFIED 



BRS 



PSHSTK, F#,IZ,FETCHW,CC REG PAIR SPECIFIEDl 



LDPI LIMP, URL 
BRA PSHSTK 



( 0513 PUSH.LSB.MSB 
(IMP 051) 



IMP ** IMP 



DEFAULT 



PUSH CONSTANT (ADDRESS?) ONTO STACK 
LINKED LIST INSTRUCTIONS 

POINT IMP TO ITS HIDDEN REGISTERS 



IMP, IMP*1 <* (MAR+i, MAR+2) GET ADDRESS AFTER OPCODE 



PC <* MAR ♦ 2 
PSHST0 (FETCHW) 

STB IMAR,SMR 

LDPI LIMP,IMPL 
MWAIT ,MEMPFS 



CORRECT THE PC 

GET THE IMMEDIATE VALUE 
AND HIDING PLACE 



LDTP 
STB 



MDR 
IMAR,SMR 



DATAPOJMT CONFIDENTIAL INFORMATION ~ SEE PAGE 1 



PASS 11 

2521 
853 # . 

*54: 

1551 

*56*. 
857*. 



PPOO/TXT 



002137L 
002M0L 
0«2t4lL 
002142L 
002143L 
0021441. 
002145L 
002146U 
002147L 
002150L 
002151U 



001 10111 

00110111, 

00H0001 
00110001 

11000100 
11000111 
00110001 
00110111 
00110111 
01010001 

11001111 



10001111 
00001001 
10001001 
10101000 
10011100 
01101010 
00110110 
10001111 
00001000 
11101111 
11000111 



MICRO-PRQCESSOR EMULATION SUPPORT CODE 
, SUBROUTINE CALL AND STACK PUSH 

LPPT IMPO,DIMP 

f>LDX MR2PC 

MWAIT ,MEMPF$ 

LOPP IMPO f MOR,IIMP 



* H4S 9 



78JUL20 11144 



BRC 



P8HST0,,FETCHW 



GOT LSB, POINT TO MSB 
SAVE THE UPDATED P.C, 

GOT MSB, POINT CORRECTLY FOR PUSH 
RETURN FROM PUSH TO FETCH WAIT 



DATAPQINT CONFIDENTIAL INFORMATION • SEE PAGE 1 



r 
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260, 

261 . 

2621 

263, 

2641 

265, 

266 

267^ 

268, 

269, 

270, 

271. 

272' 

273. 

2741 

2751 

276, 

277, 

278, 

279. 

2801 

281. 

282*. 



PRQO/TXT 



MICROPROCESSOR EMULATION SUPPORT CODF • MJS m 78JUL20 11*44 

, RETURN COOES USER & CONDITIONAL & REGULAR, AND STACK POPPING 



283, 
284, 
2851 
2861 
2871 
2«8j 
289, 
290, 
291, 

*K *P %• m 

2931 
294, 
295. 
2961 
297, 
298, 
299, 

300, 

3*1, 
302, 
303, 
304, 

305; 

306*. 
307'. 



002152L 



002152L 11011011 11100100 
002153L 



002153L 
002154L 
002155L 
002156L 
002157L 

002160L 



(30110001 
01010011 
00110U1 
00110111 
11001U1 



11011100 
00000100 
10001100 
00000100 
10001100 



* 
EIROJt 

! 10.20 

• 
t 
. 8*55 

i 

USERET 
, 10,20 

I 9.15 

* 



(062 050) 

CIEV 0503 

fill 050) 

(IOD 050) 



EUR 

EUR 

EJMP.LSB.M88 
EJMP.LSB.MSR 



ENABLE INTERRUPTS AND USER RETURN 
ENABLE INTERRUPTS AND USER RETURN 

ENABLE INTERRUPTS AND JUMP 
ENABLE INTERRUPTS AND JUMP 



IF IMP ODD THEN JUMP 
BRA JUMP, T9, 10 



C062 050) 

(IEV 050) 

(111 102) 

(IMP 1C2) 



EUR 
EUR 
UR 
UR 



ENABLE INTERRUPTS AND USER RETURN 
EIR UNSPECIFIED 
USER RETURN 
UNSPECIFIED UR 



MQDW «* PSW <- SWUSER ,QR, PSw 
RETURN 

DQPIP PSWO.OR, SWUSER, PSWI 



STB 
BRA 



MQDW 
RETURN 



RETCCI 
6,55 



002160L 
002161L 
002162L 



00110001 
01000101 
11000011 



00110001 
00000001 

11101011 



( 0C3) 
2.50 IF NOT TAKEN 
IEV 0C3) 
IOD 0C3) 
IMP 003) 
IMP 023) 

003) 
013) 
023) 
033) 
043) 
053) 
0633 
073) 



RET 

OOPM 
D0PP,I0X 



RFC 
RFZ 
RFS 
RFP 
RTC 
RTZ 
RTS 
RTP 



IF NOT CC THEN FETCH 
ELSE RETURN 

TSTIP ,STUSCF, STATUS 

BRA FETCHI.TZ 



SET USER MODE 



EXTERNALLY ALSO IN EOLATION AIDS 



CONDITIONAL RETURN 

FROM MEMORY DOUBLE REGISTER PAIR ARITH'S 
PAGED DOUBLE REGISTER PAIR ARITHMETICS 
UNSPECIFIED 
UNSPECIFIED 

FALSE CARRY 
FALSE ZERO C.NE.) 
FALSE SIGN t.GE.) 
FALSE PARITY (EVEN) 
TRUE CARRY 
TRUE ZERO (,EQ.) 
TRUE SIGN (,LT.) 
TRUE PARITY (ODD) 



OATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 
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308^ 
309. 
310. 

3n; 

318. 
313', 

314; 
315; 

3161 
317, 
318, 
319, 
320, 
32lJ 
322, 
323, 
324, 
3251 
326; 
3271 
328; 

329; 

330; 

33il 
332, 
333; 

334*. 

335; 

336; 

337; 
338. 
339 r . 

340*. 
341*. 



PROD/TXT 



MICROPROCESSOR EMULATION SUPPORT COOE » HJS - 78JUL20 11 144 
, RETURN COOES USER & CONDITIONAL * REGULAR, AND STACK POPPING 



002163L 



002163L 
002164L 
002165L 

002166L 
002167L 



002167L 
002170L 
002171L 
002172L 
002173L 



0A2174L 

002175L 
002176L 
002177L 
002200L 
002201L 
002202L 
0PI2203L 
002204L 
002205L 
002208L 
002207L 
002210L 
002211L 



01010001 
00110111 

01010001 



00001001 

00000001 

0H10101 



01101111 10110000 



00110001 
00110001 
00110111 
01010101 
01010010 



01010011 
00110111 
11000100 
11000111 
00U0001 
00110111 

00110111 
00110111 
00110111 

11000100 
11000111 
00*10001 
00110111 
11101111 



11101010 
11001011 
0100«lll 
10111111 

000000 10 



01000000 
10001011 
10000301 
01101010 
00110110 
00001100 
01000111 
10001111 
00001001 
01U1010 
01101010 

00110110 

10001111 

00000000 



RETURN? 
. 6.20 



f 



0075 RET 



UNCONDITIONAL RETURN 



IMP <m PC 

POPSTK CRETS) 



LDPI 

BAL 
* 

POPST0J BAS 
POPSTK 
* 3 § 35 
• 
* 



LIMP,PCL 
,RETS 

LINK.CC 



POP STACK INTO PROGRAMME COUNTER 

RETURN FROM POP TO SPECIAL STARTUP 

IN-PAGE CALL 

POP THE STACK TO IMP AND IMP*t 

CARRY MUST BE CLEAR TO USE THIS ENTRY 



PQPSTKt 

IMP, IMP*1 <- (SP, SP + t) 

SP «» SP ♦ 2 (BASE 64 & MOD 128) 

(BITS 7 TO 15 UNCHANGED, BIT 6 IS 1 & BIT IS ALWAYS) 



LDX SP2MRH 

LDX SP2MRL,SMR 

DOTI , NO, -1-0100 

DOTI ,AC,2 



DOPI SPOL,OR»0100 
MWAIT ,M£MPFS 



POINT INTO THE STACK AREA 

(SAVE 150 N.SEC BY INVERTING ORDER) 

TURN OFF WRAP-AROUND BIT 
SKIP TO NEXT ENTRY TO POP 
NOTE* CSTKS) ASSUMES FALSE CARRY 
GENERATED HERE (TO SAVE BYTE) 
SET BIT ON TO FINISH WRAP-AROUNQ 



LDTP 
STB 


MOR 
IMAR,SMR 


LDPT 
STB 

MWAIT 


IMPO 
OIMP 
,MEMPF* 


LDPP 


IMPO,MDR 


BRR 


LINK 



GET MSB DATA 

SAVE LSB DATA 

** PUT MEMPFS AFTER LDPP, BETTER STACK! 

SAVE MSB DATA 



OATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE i 
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342. 
343, 
344. 
345. 
3461 
347. 



3481 
340. 

350; 

351. 

352^ 
353, 
3541 
3551 
3561 
3571 
358, 
3S9. 



PROD/TXT 



360^ 
36 1. 
362! 



363. 

364'. 

365'. 



002212L 



002212L 
002213L 
0«»22i4L 
002215L 

002216L 



002216U 
002217L 
002220L 
0022211 
002222U 
002223L 



08U0001 

00110001 

00110111 
11001111 



01010001 

01101111 
11001000 
01010001 
00110111 

11001111 



11001001 

11101000 
0100BH1 
11101001 



MICRO-PROCESSOR EMULATION SUPPORT COOF - HJS - 7SJUL20 11:44 
, RETURN COOES USER & CONDITIONAL « REGULAR, AND STACK POPPING 



RETSl 

, 2.40 MAR «- PC 

, FETCH8 

DLDX PC2MR,,SMR 



11101101 

10110000 
10001000 

00000110 

00000001 

10001000 



POP! 

t 6. 45 

. 8.10 

. 8,10 

. 8.10 
• 

t 



LOAD THE MAR FROM P.C, VALUE (NO IMAR) 



BRA 



FETCHS 



f 060) POP 

(062 0605 POP 

(174 060) POP 

(022 060) POP 



(176 060) 
(IOD 060) 



POP 
POP 



IF IMP ZERO THEN IMP <s URL 
POPSTK (FETCH) 



BRS 



POPSTK, F#,IZ,FETCH,CC 



HL IS POPPED FROM STACK 

BC 

DE 

XA 

HL UNSPECIFIED 

MIXED REGS UNSPECIFIED 



RETURNING TO FETCH 

THE IMP REG POINTS TO REG-PAIR ALREADY 



LDPI LIMP, URL 
BRA POPSTK 



DEFAULT USES HL 



OATAPOINT CONFIDENTIAL INFORMATION «• SEE PAGE 1 
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368^ 
389, 
370'. 
37ll 
372. 
373^ 
374. 
3751 
376, 
377, 
378. 
3791 
380. 
381^ 
382, 
383. 
384, 
385. 
386. 
387, 
3881 
389. 

39<. 

39i 

3921 

3931 
3941 

395* 
396, 
397. 



398. 
399'. 



4901 
40!* 
402. 

403'. 



404' 

405. 

406*. 

407: 



PROD/TXT 

0022241. 01011001 U1110U 
0022251. 



MICRO-PROCESSOR EMULATION SUPPORT CODE • HJS - 
MEMORY PARITY FAULT COOEl VERY WEIRD1 



78JUL20 11144 



002225L 00110001 00U01U 
002228L 01101111 10110001 



002227L 
002230L 
002231L 
002232L 
002233L 
002234L 
002235L 
002238L 
002237L 
002240L 
002241L 
002242L 
002243L 
002244L 
002245L 
002248L 
002247L 
002250L 
002251L 
002252L 
0&2253L 
002254L 



00110001 
01010101 
00110111 

01010001 
00110111 

00110001 
00110111 
00110001 
01010101 
01000000 
11000010 
01010001 
00110111 
01010001 
00110111 
00110111 
00110001 
11000100 
11000111 
00110010 
00110111 
00110111 



11011100 
11111011 

00000100 
00001111 
00000001 

100011U 

00001001 

10101111 

11000000 
10000000 
01010011 
10101011 
11000000 
11101111 
11100000 
01000111 
11011111 

01010111 
01010000 
00110110 
10001U1 

00001000 



MEMPF2 BPGX 



** IF FROM WRONG EVEN/QOO PAGE PAIR ** 



EMPFSl 

********* 

P.C, AT 1 WHEN GET MEMPF, WILL ALWAYS ASSUME IT CORRECT 

HOPING TO POINT TO THE NEXT INSTRUCTION. 

********* 

MEMORY PARITY FAULT ANALYSIS 

IMP <■ IMPL (MIDDEN) 

(IMP, IMP-i) <- MAR 

IF MARH IN BASED REGION (IF BASED, ADO IN BASING FACTOR) 

THEN IMP*1 <- IMP-I ♦ CSEBRLS) 
PSHSTK 
CASE STEK 

SP! TEMP <p SRPARST SECTOR TABLE PARITY ERROR 

SCOON 
WVj TEMP «- SRVIOLW WRITE VIOLATION (WAS PROTECTED) 

8C0K 
AVj TEMP <- 3RVI0LA ACCESS VIOLATION (WAS NOT PRIV'O) 

SCOK 
MPi TEMP <- SRPARMEM MEMORY PARITY FAULT 
SCOON 



LORP TEMPI, STEK,CC 
STB CMPF 



GET AND SAVE STATUS WOPD 



CLEAR THE FAULT (NOT NECESSARY) 
(THE NEXT READ/WRITE DOES IT) 
DOPIP MOOW,NO,-l-SWUseR.PSWI ENABLE WRITING ACCESS PROTECTED M£MOPY 



LDPI LIMP, IMPL 
DLOX MR2IM,DIMP 



OOTI ,ND,0300 

TSTIT XR,0200 

BRA MEMNBAS,FZ 

DLOPI MARO,SEBRLS,,SMR 



LOTP IMPI 
MWAIT ,MEMPQ 



OOPP 
MEMNBAS STB 



IMPO,AC,MDR 
IIMP 



USING HIDDEN REGS AND PSHSTK 
SAVE THE MAR ON THE STACK 



HIGH BIT ON, NEXT BIT OFF? 

NO, IN ANOTHER 16K CHUNK 

IN BASED AREA, GET BASE REG VALUE 



SO ADDRESS MATCHES 5500 VALUE 
11! HELP 111 

ADO IN BASING 

POINT TO LSB TO SAVE 



DATAPOINT CONFIDENTIAL INFORMATION *■ SEE PAGE 1 
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P9QO/TXT 



MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS > 
, MEMORY PARITY FAULT CODE* VERY WEIROl 



78JUL20 11 544 



4(38. 

4519* 

410. 

41 ll 



412'. 

413* 

414 

4tSl 

416, 

417. 

418. 

419*. 



42(?: 

421, 

" 0* m m 

4231 

425* 
426. 
427. 



428. 
429'. 



002255L 
002256L 
002257L 
002260L 
0&2261L 
002262L 
002263L 

002264L 
00226SL 
002266L 
002267L 
002270L 
002271L 
>002272L 
»002273L 

002274L 
002275L 

002276L 
002277L 

002309L 

002301L 

002302L 

»0*2303L 

>002304L 



01010001 

11001111 

01010001 
11000100 

11000111 
01110001 
01000101 

11000010 
01000101 
11000010 

01000101 

11000010 
01010001 

010UR01 

11001111 

01010001 

11001111 



01010000 
11000111 
00000110 
01001111 
01000101 
11110001 
10000000 

01000011 
01000000 

00111110 
00000001 
01000001 
00010010 

111111U 

i litnii 

00011011 

01000101 



01010001 00011000 

01101111 1U10010 

11001111 00111100 

01010001 00010010 

01101111 11110010 

01011001 Itltllll 

11001111 11111111 



MEMPQ 



8RC 



PSHST0 



LOTI SRSYSMF 
MWAIT ,MgMPX 

TSTIR ,STLSP, TEMPI 



* * * * 5,58 ***** 1.80 IF BASED 

SRA MEMPSiFZ 

TSTIT ,STLW 

BRA MEMPW,FZ 

TSTIT ,STLA 

BRA MEMPA,FZ 

LDTI SRMEMPE 

MEMPX BRAX SCROML 



MEMPS LOTI SRSTPE 

BRA MEMPX 

MEMPA LORI TEMPLiSVAVIOL 

BRA MEMPR 

MEMPW LORI TEMPL,SVWVIOL 

MEMPR BRAX SCRAM 



PUSH MAR VALUE ON THE STACK 

ASSUME THE WORST, GOT ANOTHER FAULT 
Hi HELP Ml 

SPt SECTOR TABLE PARITY FAULT 



WVI WRITE VIOLATOIN FAULT 

AVI ACCESS VIOLATION FAULT 

MP! MEMORY PARITY FAULT 

THESE ERRORS GO TO ROM VECTQRS1 

SECTOR, ROM VECTOR 

ACCESS, RAM VECTOR 

WRITE, RAM VECTOR 



OATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 
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432, 
433. 
434 . 
435* 
436, 
437, 
438j 
439, 
440, 
441. 
442. 
4431 
444, 
445, 
446, 
447. 
448^ 

450'! 
45i; 
452. 
453'. 
4541 
455, 
456, 

* 53 f * 

458*. 



PROO/TXT 



459*. 

460'. 
46 ll 



462'. 
4631 
464. 

465' 
466. 
467'. 

468'. 



0023O5L 



002305L 
002306L 
002307L 
002310L 
0023HL 
002312L 
002313L 
0W23HL 
002315L 
002318L 
002317L 

002320L 
O02321L 
002322L 
002323L 
O02324L 
B02325L 
00232RL 
002327L 
0B2330IL 
0O2331L 
002332L 
002333L 
>0«2334L 
>0O2335L 



11001000 

01010001 
00110111 

01010001 

11001111 

00110001 
001151001 

emiaiit 

00110001 
00110111 

00110001 

01010010 
00U01U 
00110001 
00110110 
00110111 
00110001 
11000100 

11000111 

00110111 
00110111 
01010001 
00110111 
01011001 

11001111 



00100001 
00001111 
00000001 
00110101 
10001001 
11000110 
11100101 
00001000 

11011111 

00100001 

11010110 
00000010 
10000110 
11010101 
10000101 
00O01001 
11011111 
00101001 
01101010 
0000U00 
00100001 
00000000 
00000001 
11111111 
11111111 



MICROPROCESSOR EMULATION SUPPORT COOE * MJS • 78JUL20 11:44 
. STACK LOAD, STORE AND MOVE fMOVE WITH SYSTEM SAVE AREA) 



* 
STKS* 

( 065) STKS SAVE STACK CONTENTS 

2.25 ♦ C * 8,70 ** NO SERVICE INTERRUPTS ** 
- 0,25 TO SERVICE (♦ INSTRUCTION RE-START) 



(111 065) STKL 
CIOO 065) STKL 
4.25 ♦ C * 8,50 

- 0,25 TO SERVICE (♦ INSTRUCTION RE-START) 



LOAD STACK CONTENTS 

LOAD STACK CONTENTS UNSPECIFIED 



7,15 
7,15 
7,15 
7.15 



(022 065) SYSM 

(062 065) SYSM 

(174 06S) SYSM 

(176 065) SYSM 

IF NOT IMP ZERO THEN STKL 
ELSE IMP <■ IMPL 
POPSTK 

(HL» HL+t) <m 
HL «- HL ♦ 2 
IMP <• 

RIN16 



STB 

LOPT 

LOPI 

8RAX 



TO XA, MOVE SYSTEM SAVE AREA 
TO 8C 

TO OE (SWAP WITH REG PAIR) 
TO HL 



(TOS TO HIDDEN) 
(IMP, TMP*l) 



BRA 
LDP I 


STKL,F#,IZ 
LIMP, IMPL 


BRC 


POPST0 


DLDX 


HL2MR,,HMP 



LOPP MDW,IMPI 

DADDP UR0tUR,URI*UR,2 



STi DIMP 
LDTP IMPI 
MWAIT ,M£MPFS 



IMAR 

MOW 

LIMP,0 

RIN16 



LOAD THE STACK (OR MOVE IT) 
POINT TO HIDDEN REGISTERS 

GET THE TOP STACK ENTRY (M. POINTER) 

POINT TO MEMORY AND CORRECT IMP 

STORE THE LSB 

UPDATE THE HL POINTER (POPST DOES CO 



GET THE MSB 

STORE THE MSB 

RESET IMP FOR STKS OP-CODE 

DO REPEATED INSTRUCTION 



OATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE i 
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469, 



PROO/TXT 



MICROPROCESSOR EMULATION SUPPORT COOF " HJS * 78JUL20 11144 

STACK LOAD, STORE AND MOVE (MOVE WITH SYSTEM SAVE AREA) 



470'. 00233«L 
471, 



472. 

473 

474, 

4751 
476. 
4771 
47SJ 
4791 
480*. 
481; 
482. 
4831 
4841 

4851 
486, 
4871 

468. 
4891 
490*. 



49 ll 

4921 
4931 

4941 

4931 
406. 

497*. 

498*. 

499*. 

500*. 

50 ll 

5021 
5031 

504*. 

505*. 



002336L 
002337L 
002340L 
002341L 
002342L 
002343L 
002344L 
002349L 
002346L 
0W2347L 
00235&L 
002351L 
002352L 
0B2353L 
002354L 
002355L 
002356L 
002357L 
002360L 
002361L 
002362L 
002363L 
002364L 

002365L 
002366L 
002367L 

002370L 

002371L 

>002372L 

>002373L 



11011010 

00110001 
00110001 
00110111 

81010001 
00110111 
00010U1 

00110001 

01010100 

00110111 
11000100 

11000111 

00110001 

00110111 
00110111 
00110111 
00110111 
0011000! 
01010100 

00110111 

11000100 
11000111 
0011000) 
00110111 
0101000! 

11001111 

01010001 
0011011} 

01011001 
11001111 



tlllllli 
11000110 

11100101 
01000111 
00001110 
00000001 
10110010 
U010U0 
00000010 
10000H0 
000101U 
00010000 
00110110 
00001101 
01000111 
10001111 
00001000 
11010101 
00000000 
10000101 
00001101 
01101010 
00110110 
10001111 
00000111 
11000111 

00000001 
00000001 

iiniili 
niiiiii 



STKL 



(111 065) STKL 
(100 065) STKL 
4',25 ♦ C * 8.50 



7,15 
7,15 
7,15 
7.15 



STKLPF 



(062 065) SYSM 

(174 065) SYSM 

(176 065) SYSM 

(022 065) SYSM 



LOAD STACK CONTENTS 

LOAD STACK CONTENTS UNSPECIFIED 



TO BC, MOVE SYSTEM SAVE AREA 
TO DE 

TO ML (SWAP WITH REGISTER PAIR) 
TO XA 



IF NOT IMP ODD THEM SYSM 
ELSE IMP <t IMPL 

(IMP-t, IMP) <* (HL*1, HL) 

PSHSTK 

HL <- HL - 2 

IMP <« 1 (MAKE IMP ODD) 

RIN16 



BRA SYSM, F0, 10 
DLOX HL2MR,,SMR 



LOPI LIMP,IMPH 

CCLR 

DOPIP URQ+URL»SB,2,URH.URL DECREMENT L 



LOTP 
STB 



00 SYS AREA SWAP1 



POINT TO HIDDEN SAVE MSB 



MWAIT f 8TKLPF 



MDR 
DMAR.SMR 



IF ERROR BE SURE TO DECR, H 
GET MSB AND POINT FOR LSB 



LDPT IMPO,IIMP 

DOPIP URO+URH,SB,0,URH-URM 



DECREMENT H 



MWAIT 


,MEMPF$ 


LOPP 


IMPO # MOR 


BRC 


PSH8T0 


LDPI 


LIMP,1 


BRAX 


RIN16 



SET LSB DATA 

PUT IT ON THE STACK 

** MUST HAVE MWAIT FOLLOWING 
SET IMPLICIT QODl 

AND REPEAT IF NEEDED 



OATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 

PAGE 19 PPOD/TXT MICROPROCESSOR EMULATION SUPPORT CODE - HJS - 78JUL20 11144 

t STACK LOAD, STORE AND MOVE (MOVE WITH SYSTEM SAVE AREA) 

506^ * 

507. 002374L SYSRET0I ** OFF PAGE JUMP FOR SYSRETURN COQE ** 

5518. >002374L 01011*0} 11111111 8RAX SYSRETl 

>002375L 11001111 IIUUU 
5091 * 

510. 002376L 11111111 lllllHl TA8PAGE PRODL 

002377L llltllil 11111111 



t 
{ 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 
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51 f. 

518' p 
5131 
514. 

515; 

516. 
517, 

518. 
519, 
580; 

521; 

5221 

523. 
5241 
5251 
526. 
5271 
5281 
529, 
530; 

531; 

532, 

533 a 



PROD/TXT 



MICRO-PROCESSOR EMULATION SUPPORT CODE - HJ8 - 78JUL20 1U44 
, STACK LOAD, STORE AND MOVE (MOVE WITH SYSTEM SAVE AREA) 



534, 
535. 



536. 



537, 
5381 
539. 



540*. 

54.; 

3421 

543. 
544; 
545. 



546; 



00240Pit, 



002400L 
0024SHL 
002402L 
002403L 
002404L 
002405L 
002406L 
002407L 
00241WL 
002411L 
002412L 
002413L 
002414L 
0PI2415L 
00241SL 
002417L 
002420L 



00110001 
81000101 
11010010 
00110001 
01010101 
01810011 
00110111 
00110111 
00110001 
00110001 

00110111 
001 101 11 
00110001 
0011011! 
00 11 0001 
00110001 

110011U 



U«11100 
00000100 
11101110 

11011111 
11111110 
01000000 
11000000 
00001001 
11101111 
11011010 
10001111 
00001000 

11011011 
10001111 
10001011 
10101010 
11101101 



SVSM 

7,15 

7,15 

7,15 

7.15 



>00242!L 01011001 llilllll 
»00242?L 11001U1 llilllll 



* 
IVI0L2 



C022 063) SYSM XA 

(062 065) SYSM BC 

(174 065) SYSM DE 

(176 065) SYSM HL 



TF USER THEN IVIOLS 
MARL <* (IMP .AND, 0376) 
MARH <* IMP«1 
CIMP-I, IMP) <* SP 

SP 4m MaR 

TSTIP ,8WUSER,PSWI 

BRA IVI0L2,FZ 
OOTIP ,N0,-*2,IMPI 

DOPI MAROL»OR,0100 

STB OIMP 

LDX IM2MRH 

LDPP IMP0,SPIH,IIMP 



LOPP IMP0,SPIL 

LDX MR2XXL+SPL 

LDX MR2XXM+SPH 

BRA FETCH 

BRAX IVIOLS 



MOVE SYSTEM AREA 

(SWAP POINTER WITH REGISTER PAIR) 



<8-M8B> <X1PPPPP0> 

WHERE* 8-MSB IS CORRECT MSB 

X IS 128 BYTE BOUNDARY 
PPPPP IS STACK POINTER 
1 IS FORCED ONE AND 
IS FORCED ZERO FOR 

CORRECT OPERATION 



.OR. 0100 

(MAKES SURE OF CORRECT FORM) 

COMPLETE THE SWAP 

NOT ALLOWED IF IN USER MODE 

LOW BIT MUST BE OFF 
BIT 6 MUST BE ON 



SAVE NEW REG PAIR 
MOVE STACK TO REG PAIR 



MOVE SAVED NEW STACK POINTER 



OATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE i 
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549. 
550, 
551, 
552, 
553, 
554. 
5551 
556. 
557' 
558. 
5591 
550, 
561, 
562, 
5631 
564J 
565, 
566. 

567* 
566, 
569. 
578), 
571, 
572, 
573, 
574, 
575J 
576. 

577*. 

578' 
579, 
580, 
581, 
582. 
583, 
584, 
585j 
586. 

5871 



5881 
589. 

5901 
5911 

592'. 



PROn/TXT 



MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS • 

, JUMP COOES NON ft CONDITIONAL * NO*OP & EI TYPES 



78JUL20 11:44 



S02423L 



002423L 
002424L 
002425L 

002426L 



0P»t t0^0 1 

01000101 
11010810 



00110001 
00000001 
11100100 



002426L 00110111 00001100 



002427L 
002430L 
002431L 
002432L 

002433L 



00110111 
00110111 

00110111 
11001111 



00001100 
00001100 

010001U 

11101001 



00I2433L 
0PI2434L 
002435L 
002436L 
002437L 
002440L 
002441L 
002442L 
002443L 
002444L 
002445L 
002446L 



00110111 
001110111 

11001110 
11010100 
11000111 
00110001 
00110111 
00110111 
01101111 
11010100 
11000111 
00110001 



00001100 
01000111 
11111111 

11100001 
01101011 
00110110 
00001100 
01000111 
11110001 
11011011 
01101011 
00110110 



JUMPCCl 

5,65 ( 1C0) JCC.LS8.M5B 
2.90 IF NOT TAKEN 



( 100) JFC,LSB,MSB 

C 1103 JFZ,LSB,MSB 

C 120) JFS ? L8B.MSB 

( 130) JFPpLSB^MSB 

( 140) JTC,LSB,MSB 

( 150) JTZ.LSB.MSB 

( 160) JTS.LSB,MS8 

t 170) JTP.LSB.MSB 



* 

NOji 



2.55 



* 

JUMP! 
5.20 



IF CC THEN JUMP 
ELSE NOJ 

TSTIP ,8TUSCF#STATUS 

BRA JUMP,FZ 

t 045) NOJ.LSB.MSB 

MAR <• MAR ♦ 3 
FETCH8 

STB IMAR,IMAR 

STB I*AR,SMR 

BRA FETCHS 

t 104) JMP.LSB.MSB 

MAR *m (MAR+1, MAR+2) 
FETCHS 



STB 


IMAR,SMR 


MWAIT 


NOOP,MEMPF2 


LDTP 
STB 


MDR 
IMAR,SMR 



LDRT TEMPI 

MWAIT ,MEMPF2 

LDPP MAROH,MOR 



CONDITIONAL JUMP 



FALSE CARRY 
FALSE ZERO C>E.) 
FALSE SIGN C.GE.) 
FALSE PARITY (EVEN) 
TRUE CARRY 
TRUE ZERO (,EQ,) 
TRUE SIGN C.LT,) 
TRUE PARITY CQDO) 



TEST CC 

YES, IT»S MET, DO THE JUMP 

3 BYTE NOfOP 

(SKIP DP-CODE LSB,M$B TO NEXT OP*CQDE) 

A LITTLE FASTER IN COMPETITION WITH DMA 



UNCONDITIONAL JUMP 



GET THE LSB 



GET THE MSB 



GOT THE MSB 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 
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593. 



594 
593. 



002447L 00110111 11100000 

0P>245«L 01110001 51U«001 

002451L 00118111 11000000 

002492L 00110111 01000111 

002453L 11001111 11101001 



LDPR MAROLfTEMPl.SMR 



BRA FETCHS 



AND SAVED LSB 



GO TO IT! 



OATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 
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PRQD/TXT 




MICROPROCESSOR EMULATION SUPPORT CO 










, LOAD' 


S AND . 


STORE'S 


5981 














599, 

600. 


0G2454L 






LD6: 


















601'. 








\ 3.75 


( 


006) LO.WV 


6021 














603' 
604J 










( 


006) LA.VVV 










C 


0163 LB.VVV 


605. 










( 


026) LC.VVV 


6061 
607. 










( 


036) LD.WV 










( 


046) LE.VVV 


6081 
609, 










( 


056) LH.VVV 










( 


066) LL.VVV 


610. 
6tlJ 










( 


0763 LX.VVV 














6 1 2, 










MAR 


tm MAR + 1 


613, 










135 ■ 


«. (MAR) 


6141 










FETCHI 


615. 














616'. 


002454U 
002455L 


00110111 
00110111 


00001100 

01000111 




STB 


IMAR,SMR 


6171 


002456L 


11001110 


1 1 1 1 11 U 




MWAIT NOOP»MEMpF2 




002457C 


11010100 


11010000 










0024601 


11000111 


01101011 








618'. 


002461L 
002462U 


00110001 
00110111 


001101110 
10001101 




LOPP 


1350, MOR 


6191 
6201 
621, 

622 . 


002463L 


11001111 


11101011 




BRA 


FETCHI 








* 






002464L 






LD7» 












» 






6231 








. 4.80 


( 


307) LRM 


624 














625. 








\ 6.65 


(062 


3D7) LRM 


626, 








• 6,65 


C174 


307) LRM 


627, 








. 6.65 


(022 


307) LRM 


628, 
629, 






















(176 


307) LRM 


630, 
631. 










(IOO 


307) LRM 














6321 










IF IMP ZERO THEN IMP <■ URL 


633, 










135 <- (IMP, IMP.I) 


634, 










FETCH 


635, 








t 






636, 


002464L 


1101100P* 


11001000 




BRA 


L07I,F#,U 


637. 


002485L 
002466L 


01010001 
00110111 


00000110 
00000001 




LDPI 


LIMP, URL 


6381 


002467U 
00247PIL 
002471L 
002472U 


00110001 
001101 I 1 
00110001 
00110111 


11001111 
&0001001 
11101111 
01000111 


LD7I 


OLOX 


IM2MR,0IMP,SMR 


6391 


0024731 
002474U 
002475L 


11001115! 
11010100 
11010U1 


Hltlill 
11000011 
11000001 




MWAH 


1 N00P,$+1 



78JUL20 1 1 844 



LOAD REG WITH IMMEDIATE VALUE 
LOAD A-REG 



LOAD X^REG WITH IMMEDIATE VALUE 



POINT TO THE DATA 



GET THE DATA 
AND RETURN 

LOAD BYTE FROM MEMORY INTO REG R 

LOAD BVTE FROM MEMORY USING REG PAIR BC 
LOAD BYTE FROM MEMORY USING REG PAIR DE 
LOAD BYTE FROM MEMORY USING REG PAIR XA 

USING HL UNSPECIFIED 

USING MIXED REGS UNSPECIFIED 



SPECIFIED IMP? 

NO, THEN USE HL AS REG PAIR 

POINT AND START MEMORY READ 



PUT IN STANDARD 200 NS DELAY FROM READY 



EUTAPQINT CONFIDENTIAL INFORMATION - SEE PAGE J 
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640. 



641, 
642, 
643, 
644. 
645, 
646. 
647. 
648. 
649, 
658, 
651, 
652, 
653, 
654, 
655, 
656, 
657. 
658'. 
659. 



668. 



661. 

662* 
663, 
664, 
665, 
666, 
667, 
668, 
669, 
670, 
671. 



672' 
673. 



PROD/TXT 



MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS - 
„ LOAD'S AND STORE'S 



78JUL28 11144 



00247SL 
0&2477L 
002580L 

802581L 

002582L 



002582L 
882503L 
082504L 
802505L 
002586L 
802587L 
002510L 
0825HL 
0825121 

002513L 



0825 13L 
082514U 

082515L 



00110081 
00110111 
11080110 
11081H1 



11011880 

01810001 
80110111 
00110001 
00110111 
00110001 
00118081 

00110111 

11001111 



00110001 
08110111 
11801111 



00110110 
18001101 
11181101 
01101011 



10111810 
00088118 
P000000I1 
11801111 

00081801 

11101111 
11011110 

08100001 
11101111 



11011110 
10081181 
11101011 



* 
L73I 

! 4.45 

', 6,38 

, 6,38 

• 6.38 

• 

* 
* 



L7SI 



* 
LOS! 

* 

. 2 . 55 

* 



LDPP 1350, MOR 

BRA FETCH, P0, MP 
BRA MEMPF2 



( 37S) LMR 



(862 37S) 

tl74 37S) 

(822 37S) 

(176 37S3 

flOD 37S) 



LMR 
LMR 
LMR 

LMR 
LMR 



IF IMP ZERO THEN IMP <i 
(IMP, IMP, l) <- 102 

BRA L7SI,F#,IZ 
LOPI LIMP, URL 

OLDX IM2MR,DIMP 



LDPP MOW,I02I 
BRA FETCHW 

( 30S) LRR 
(IMP 30S3 

135 4m 102 

LDPP 1350,1021 

BRA FETCHI 



URL 



GET THE DATA FIRST, THEN 

NO FAULT AFTER READ, THEN DONE 
ELSE, GO TO FAULT ROUTINE 



STORE A BYTE IN MEMORY 

USE REG PAIR BC 
USE REG PAIR OE 
USE REG PAIR XA 

USE REG PAIR HL UNSPECIFIED 
USING MIXED REGS UNSPECIFIED 



ALMOST EXACTLY LIKE LD7 



WRITE REGISTER IN MEMORY 



LOAD SOURCE REGISTER INTO ANOTHER REG 
UNSPECIFIED 



SAVE SOURCE REGISTER IN DESTINATION 
AND D0NE1 
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676 

677, 

678, 

679. 

690, 

681. 

682* 

683. 

6841 

685, 

686, 

687, 

688, 

6»<. 

69®, 

69 1 , 

692, 

693, 

694, 

695, 

696. 

697^ 

698, 

699, 

700, 

701, 

7*2, 

703, 

7*4. 



705, 



707 

708. 

709; 



002516L 



721'. 



002515L 
002517L 
002520L 
002521L 
002522L 
002523L 
002524L 



710, 002525L 

711, 

712, 

713, 

714, 

715. 

7161 

7171 

7181 

719, 

720. 



002525L 
002528L 
002527L 
002530L 
002531L 
002532L 
002533L 



00110111 

00110111 
01101111 

11010100 
11000111 
00110001 

11011111 



01101111 
00110001 
00110001 

00110111 

11001110 
11010100 

11000111 



AP4J 

5,00 
7.00 



00001100 
01000111 
11110010 
10101110 
01101011 
00110110 
10011101 



AP7I 



( 0P45 

(IMP 0P4) 



QP.VVV 
OP.VVV 



♦.45 IF 'AC OR 'SB' 



( 
tIMP 

C 

(IMP 

( 
(IMP 

( 
(IMP 

( 

(IMP 

( 

(IMP 

( 
(IMP 

( 

(IMP 



004) 
004) 
014) 
014) 
024) 
024) 
034) 
034) 
044) 
044) 
054) 
054) 
064) 
064) 
074) 
074) 



AO.VVV 
AD.VVV 
AC,VVV 
AC.VW 
SU.VVV 
SU.VW 
SB.VVV 
SB.VVV 
NO.VVV 
NO.VVV 
XR.VVV 
XR.VVV 
OR.VVV 
OR.VW 
CP.VVV 

cp.vvv 



MAR «« MAR ♦ 1 
TEMP2 <- T 
T *m (MAR) 
ALUOP 



STB 

LORT 

MWAIT 

LOTP 
BRA 



IMAR,SMR 

TEMP2 

,M£MPF2 

MDR 
ALUOP 



( 2P7) OPM 
(IMP 2P7) OPM 
, *,45 IF 'AC OR 'SB' 



. 5.55 
. 7,55 



11110010 

11000110 

11100101 
01000111 

iiuiiii 

10100101 

01101011 



TEMP2 «* T 
T <* (HL) 
ALUOP 

LORT TEMP2 
DLDX HL2MR,,SMR 



MWAIT N00P|MEMPF2 



ALUOP ON IMMEDIATE VALUE 
ALUOP IS OTHER THAN TO A-REG. 



ADO IMMEDIATE VALUE TO A-REG 

ADD IMMEDIATE VALUE TO IMp-REG 

ADD WITH CARRY IMM, TO A-REG 

ADD WITH CARRY IMM. TO IMP-REG 

SUB IMMEDIATE VALUE FROM A-REG 

SUB IMMEDIATE VALUf FROM IMP-REG 

SUB WITH CARRY IMM, FROM A-REG 

SUB WITH CARRY IMM, FROM IMP-REG 

AND IMMEDIATE VALUE TO A-REG 

AND IMMEDIATE VALUE TO IMP-RfQ 

XOR IMMEDIATE VALUE TO A*R?G 

XOR IMMEDIATE VALUE TO IMP«*REG 

IOR IMMEDIATE VALUE TO A-REG 

IOR IMMEDIATE VALUE TO IMp-REG 

SUB IMM, VALUE FROM A-REG TO SET FLAGS 

SUB IMM, VALUE FROM IMP-REG TO SET FLAGS 



THE OP-COOE (MIDDLE 3 BITS IMPORTANT) 
THE DATA 



GET FOLLOWING IMMEDIATE DATA 
SAVE ALU OP-CODE 

THE DATA IS IN T 



ALUOP WITH MEMORY DATA 
OEST. OTHER THAN A*REG 



THE OP-CODE (MIDDLE 3 BITS IMPORTANT) 
THE DATA 



SAVE ALU OP-CODE 
GET THE DATA 



OATAPOINT CONFIDENTIAL INFORMATION m SEE PAGE 1 

PAGE 26 PROO/TXT MICRO-PROCESSOR EMULATION SUPPORT COOE « HJS - 78JUL20 11144 

« ARITHMETIC LOGICAL UNIT OPERATIONS 

722'. 002534L 00110010! 11001001 OLDX PC2MR SO ALUOP CAN USE FETCHI RETURN 

002535L 00110001 11101000 
723' 002536L 00110001 00110110 LOTP MOR THE DATA 

724. 002537L 11011111 10011101 9RA ALUOP AND GO WORK WITH IT 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE i 
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785. 

726. 

727' 

728; 

729' 

730, 

731, 

732. 

7331 

734, 

735'. 

736. 

737' 

7381 

739, 

740, 

74i; 

742, 

743, 

744, 

745, 

746 

7A7. 

748. 

7491 

750, 

751 

752, 

753, 

754, 

755. 

756' 

757, 

758, 

759, 

760, 

761, 

762, 

763, 

764, 

765, 

766, 

767, 

768, 

769, 

770, 

771. 



002540L 



002540L 01101111 11110010 
002541L 00110001 11011110 



002542L 



002542L 
002543L 
002544L 
002545L 
002546L 
002547L 
002550L 



♦ 

APS J 

3^70 ( 2PS5 OPR 
5,70 CIMp 2PS) OPR 
♦.45 IF 'AC' OR 'SB' 

TEMPg <- T 
T «« 102 
ALUOP 



ALUOP WITH SOURCE REGISTER 
DEST. OTHER THAN A-REG 



THE OP-CODE (MIDDLE 3 BITS IMPORTANT) 
THE DATA 



LDRT 
LDTP 
BRA 



TEMP2 

1021 

ALUOP 



SAVE ALU OP-COOE 
SELECT SOURCE REG. 



LUOP 
3.45 
♦.45 IF 'AC OR 'SB' 

SOURCE IN T-REG AND DO ARITH WITH THE IMPLIED REGISTER 



01101111 
01110001 
00010111 
01010101 
01010010 
01101 1 It 
11101111 



11110001 
11110010 

10010010 
00011100 
011U010 
10110000 
00000000 



TEMPI <- T 

CCLR 

CASE TEMP2 

71 LUF <* IMP m TEMPI 

FETCHI 
61 IMPF <m IMP ,I0R, TEMPI 

FETCHI 
5: IMPF «■ IMP ,XOR f TEMPI 

FETCHI 
4: IMPF <- IMP ,ANO f TEMPI 

FETCHI 
31 CARRY <m UCFLG 

2: 

2J IMPF <- IMP * TEMPI 

FETCHI 
II CARRY <m UCFLG 

0: 

01 IMPF <m IMP ♦ TEMPI 
FETCHI 

LDRT TEMPI 

LDTR TEMP2 

SHIFT SR»CC 

DOTI f NDi034 

DOTA ,AC»ALUXQT 

BAS LINK,CC 

BRR LINK 



SAVE THE DATA 
CLEAR THE CARRY 
(OPCODE SELECT) 



SAVE SOURCE REG, 

GET OPCODE 

GET ALUOP IN BITS 4*2 

SELECT 3 BITS 

OFFSET TO THE EXEC TABLE 

CLEAR CARRY AND 

GO TO CORRECT ROUTINE 
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7721 
773, 
7741 
775. 
776'. 
777'. 



778* 
77$/ 

780. 
78 ll 



PRDO/TXT 



782. 



783' 
784, 
785, 
786j 
787. 



788' 
789. 
790, 
791. 
792'. 



7931 
7941 
795, 
796. 
797 r . 

7981 
799, 
800. 
80il 
802, 
803. 



804, 
8051 

8*61 

807. 
808'. 

809* 
810. 

81 r. 



002551L 
0025521 
002553L 
**2554L 



**2555L 
002556L 
002557L 
**256*L 



002561U 
002562U 
002563L 
*02564L 



002565L 
002566U 
802567L 

00257*L 



002571L 
0*25721 
002573L 
002574U 



002575L 
002576L 
002577L 
0!*260*L 



002601L 
002602L 
002603L 

002604U 



00110001 
01110100 
00110111 
11001111 



0*110001 
01110*11 
0011011J 

11001U1 



00110001 
01110000 
00110111 
11001111 



0*110*01 
* 1 1 1 1 1 
0011*111 

11001111 



0*110*01 
01101111 
0111**1* 
110*111* 



00110001 
01110100 
0*110111 
11001111 



00110*01 

01101111 

0111001* 
1100111* 



11*11111 
00110001 
000001 10 
11101011 



11*11111 
10110*01 

Pit 101 111 

11101011 



11011111 
101100*1 
01101111 
11101011 



11011111 
10110001 

*ti0iiii 
11101011 



0011*101 

1111*010 
00110010 

11UH11 



11*11111 
11110001 
01101111 

111*1011 



0011*1*1 
1111*010 
0*110010 
11111111 



DATAPOINT CONFIDENTIAL INFORMATION • SEE PAGE 1 
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, THE TABLE STARTS MERE AND IS BACKWARDS 

, f A7S5 CP 2'S COMPLEMENT SUBTRACT TO SET FLAGS 

DOPRP LUF, SB, TEMPI, IMPI.C0 



BRA FETCHI 
t A6S) OR 
DOPRP IMPFO, OR, TEMPI, IMPI,CC 

BRA FETCHI 
( ASS) XR 
DOPRP IMPFO.XR, TEMPI, IMPI,CC 



LOGICAL INCLUSIVE OR 



LOGICAL EXCLUSIVE OR 



BRA FETCHI 

C A4S) NO LOGICAL AND 

nOPRP IMPFQ,iMD, TEMPI, TMPI,CC 



BRA FETCHI 

t A3S) SB 

LDRP TEMP2,UCFLG 

DOTR ,ACiTEMP2,,C0 
NOOP 

f A2S) SU 

DOPRP IMPFQ, SB, TEMPI, IMPI 

BRA FETCHI 

( A1S1 AC 

LDRP TEMP2,UCFLG 

OOTR ,ACiTEMP2,,C0 
NOOP 



2'S COMPLEMENT SUBTRACT WITH CARRY 



SET THE CARRY 



2'S COMPLEMENT SUBTRACT 



2'S COMPLEMENT ADD WITH CARRY 



SET THE CARRY 



DATAPOINT CONFIDENTIAL INFORMATION * SEE PAGE I 
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812* , ( A0S) AD 2«S COMPLEMENT ADO 

813, 



:r 



• 



814' 002605L ALUXOT 

815. 002605L 00118001 110111!! DOPRP IMPFOi AC, TEMPI , IMPI 

002688L 01110010 !lllfl!«30t 

002607L 00110111 01101111 
816' 002810L 1100111! 11101011 BRA FETCHI 

817. 



OATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 
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880, 

821, 8B26ML 

822, 

823, 

8241 

823, 

826, 

8271 



SRVRPT: 



0026HL 
002612L 
002613L 
002614L 
002615L 



002616L 
002617L 

002620L 



828*. 



830. 002616L 

831, 

832, 

833, 

834, 

835, 

836. 

837^ 

838, 

839, 

840 

841, 

8421 

843, 

844, 

845. 

846, 

847, 

848, 

849, 

858, 

85ll 

852, 

853, 

854, 

855, 

8581 

857, 

8581 

859, 

860 

861. 
8621 
863, 
864, 
865, 
866. 
867, 
868 . 



00110001 
01010011 
00110111 
11010100 
11000111 



11011100 
00100000 
10001100 
P1U0011 

01101011 



REPEATED SERVICE REQUESTS 



SET REPEAT FLAG 



PSW <m PSW # OR. SWRPT 
SRVNXT 

DOPIP P5WQ, OR, SWRPT, PSWI 



MWAIT ,MEMPF2 



SRVNXT: 

FOLLOWING TIMING ASSUMED OR CORRECTED TILL THIS POINT REACHED 
CNOT INCLUDING OFF-PAGE ROUTINES? 

T 4m SRVREG 
IF ZERO SRVRTW 



00110W01 
11010011 



00110800 
911180011 



TSTTP 
BRA 



F!,SR 
SRVRT 



VREQ 

W,TZ 



RELOA 
tSPEE 



* 
SRVDOt 



00262&L 01800101 00010000 
002621L 11010010 00001111 



♦#+*♦#+#*#♦#♦#♦*♦*♦ 

NOTICE:! ALL SERV 

MWAIT ,$ 

ALSO, TH 

TO ALLOW 

NOTE: P,C, POINTS 
OR TO INST. 
NOT INCLUOIN 

♦#+*♦*♦#♦#♦*♦*♦*♦#♦ 



SERVI 
*+*+*♦*♦#♦#♦*♦*+*♦*♦#♦* 
ICE ROUTINES THAT USE T 
+1 80 THAT THE MEMORY 
E MODE-WORD SWUSER MODE 
ACCESS TO PROTECTED ME 

TO START OF INSTRUCTION 
THAT WAS TO PE EXECUTED 
G THE IMP-SPEC. 



D SERVICE REQUEST FLAGS 

DUPi REALLY NO MORE INTERRUPTS) 



CE LOOP * PRIORITY SEQUENCE 

HE MAR MUST FIRST HAVE A 
BUS IS NOT OVERRUN, 

BIT MAY NEED TO BE TURNED OFF 
MORY 
♦#♦*+*♦#♦♦♦*+*♦#♦#♦*♦*+#♦* 

BEING EXECUTED (REPEATED) 

(FETCH) 



CASE SVCREQ 







MEMPF 




DSPnl: 


OLDO 




sdlcr: 


SOOR 




SDLCT: 


SDOT 




onms: 


OMDO 




mbus: 


BSOO 




hums: 
: 
: 


HUMDO 




SRVRT 


TSTIT 


,SCDSPNL 


BRA 


OLDO,FZ 





SERVICE REQUESTS 

MEMORY FAULT (IGNORED THROUGH HERE) 

DISPLAY, KEYBOARD SERVICE 

SOLC RECEIVE (EXCEPT 3800) 

SDLC TRANSMIT (EXCEPT 3800) 

ONE MILLISECOND INTERRUPT 

MICRO-I/F BUS INTERRUPT (EXCEPT 3800) 

HUNDRED MICR0«3EC INTERRUPT 

UNUSED 

ELSE RETURN THROUGH MEMORY WAIT 

FOR THE WASTED I-FETCH 



DISPLAY-KEYBOARD SERVICE 
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889, 

870. 

87il 

872, 

873, 

874, 

8751 

876, 

8771 

878. 

879' 

88@, 

88i, 

888. 

883; 

884, 

885, 

886, 

887. 

888. 

889 

890. 

891*. 
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892'. 

893*, 

895, 
896. 
897 r . 



898 r . 



002622L 
002623L 
3«2824L 
002625L 



01000101 
11010010 
01000101 
11010010 



00000100 
01011001 

00001000 
01010100 



002626L 01000101 00100000 
002627L U010010 00001101 

002630L 01000101 00000010 
002631L 11010010 00111101 

002632L 01000101 01000000 
002633L 11010010 01001101 

002634L 



002634L 
05S2835L 
002636L 
002637L 
002640L 
002841L 



002642L 
002643L 
002644L 
002645L 



110t010« 

11000111 
0011000! 

00110U1 

01000101 
11000010 



00110P01 
0011000! 
00H01U 
11001111 



01100011 
01101011 
11011100 

00000100 
00100000 

11011111 



11001001 
li 101000 
01000111 
11100011 



SPVRTWJ 



IFS TYPE 
TSTIT ,SCSOLCR 
BRA COMROO,FZ 
,SCSOLCT 
COMTDO,PZ 



TSTIT 

8RA 

XIF 

TSTIT 

BRA 

IFS 

TSTIT 

BRA 
XIF 

TSTIT 
BRA 



,SCONMS 

OMDO,FZ 

TYPE 

,SCMBUS 

BSDO,FZ 

,SCHUMS 

HUMOO,FZ 



(IF 3800, DO NOT) 
COMM RECEIVE 

(IF 3800, DO NOT) 
COMM TRANSMIT 



ONE MRLI-SECOND INT 

(IF 3800, DO NOT) 
BUS INTERRUPT 



HUNDRED MICRO-SEC INT 
RETURN FROM SERVICE REQUEST 



MODW «* PSW 

IF SWRPT THEN IOCOO (IR£G) 

MAR <- PC 

SRVENO 

MWAIT ,MEMPF2 

LDPP MDOW,PSWI 

TSTIT ,S«RPT 
BRA SRVTD,FZ 

OLOX PC2MR,,SMR 



BRA 



SRVENO 



FOR TRAILING MOW'S 

RESTORE CORRECT MODE (IF CHANGED) 

REPEATED INSTRUCTION? 

YES, DO IT ONLY 

WARNING! SOME REPEATED CODE IN FUTURE 

MAY NEED MAR TO MATCH THE PC 

NO, CODE AS AT FETCH WITHOUT SERVICE 

GO TO FETCH-EXECUTE 
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899* 
900, 
901. 
9021 
903. 
904, 
905, 
906, 
9071 
908, 
909, 
910, 
911, 
912, 
913, 
914, 
915. 

916' 
917. 

9181 
919, 
920, 
921, 

3* fl» ilw jt 

923, 
924, 
925^ 
926, 
927, 
928, 
929, 
930. 
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93 ll 

932' 
933. 



0&2646L 



002646L 
0026471 
002650L 
002651L 
002652L 

002653L 



002653U 
002654L 
002655L 

002656L 
002657L 
0026691 
002661L 



934, 002662L 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946, 

947. 



00110U1 
01110001 
11810011 
01011081 
11001111 



01011081 
01110001 
11008018 

81810001 
00110111 
01011001 
11011111 
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COMRDO 



00101101 
11881001 
01110001 
U110001 
11111111 



* * # 



COMTDO 

* # * 



11110011 

11001881 
11111111 

08000881 

00100011 
11111010 
01110001 



* 

HUMDO 
* * # 



002662L 00110111 00801011 



IFS 

1.50 
1,30 



TYPE 

* * * 



CHANNEL ON 
CHANNEL OFF 



INTERRUPT ROUTINES TO DO 
COMMUNICATION RECEIVE 



CSRE 

IF COMMODE ZERO 

THEN SRVNXT 

ELSE COOR 

5T8 CSRF 

TSTRT FI, COMMODE 

BRA SRVNXT, TZ 

BRAX CDOR 



CLEAR INTERRUPT 

COMM IN USE? 

NOi 

YES, COMMUNICATIONS RECEIVE 



COMMUNICATIONS TRANSMIT 



1,35 
1.78 



* * * CHANNEL ON 
CHANNEL OFF 



IF COMMODE NOT ZERO 
THEN CDOX 
ELSE SDLCOT 
SRVNXT 

BPGX CDOX 
TSTRT FI, COMMODE 
BRA CDOX,FZ 



LDPI 
XIF 



3,50 
1.90 



SDLCOT, 1 
SRVNXT 



COMM IN USE? 

YES, COMMUNICATIONS TRANSMIT 

NOTE* COMM CODE MUST CLEAR THE INTERRUPT 

CLEAR INTERRUPT AND SET LINE TO MARK 



* * * CHANNEL ON 
CHANNEL OFF 



HUNDRED-MICRO-SECOND INTERRUPT (AUDIO) 



CHUF 

IF ACPH ZERO 

THEN SRVNXT 

ELSE MODW «- PSWI .AND -1-SWUSER 

MAR 4« ACP 

SPKR 4- ACD 

ACCSOO 



STB 
IFC 



CHUF 
APF 



CLEAR INTERRUPT 
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957, 

958. 
959* 
960* 
961. 

988* 
963, 
9«4. 
965' 
966, 
967, 
966. 



PROO/TXT 



969. 

970* 

971, 

972. 

973. 

974 

975. 

976, 

977, 

978, 

979, 

980* 

9811 

982, 

983, 

964, 

985, 

986, 

987J 

989, 
990, 
991, 
992. 



993* 
994, 

996, 
997, 
998, 
999. 



S*PI2663L 
002664L 
002665U 
002666L 



002667L 
002667U 
0026701 
002671L 
002672L 
002673L 
002674L 
0026751 
00267«U 
002677L 
002700L 
002701L 



802702L 



002702L 
002703L 
002704L 
002705L 
002706L 
002707L 
002710L 



00010001 

U010011 
01011001 
11011111 



01000000 
11010010 
01010001 
11011100 
00110111 
01810001 

00110111 
00110111 
01010001 
01101111 
11011111 



00110111 

11001110 

11011100 
00110001 

01101111 

01010101 
00010000 



10111111 
01110001 

11111000 
lllllllt 



00001101 
00110000 
00001101 
01000101 

00100110 

00000000 
80180111 

00101001 
01010100 

11118010 

00001010 



00181800 

ilium 

08111011 

00010101 
11110010 
00801111 
11000811 



002711L 11018010 01001000 
002712L 00010001 11880101 
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XIF 




IFS 


APF 


LOTR 


ACCTL»CC 


RRA 


SRVNXT f TZ 


8RAX 


ACSOQ 



IF ZERO 

THE CHANNEL IS OFF 

ELSE ON, SO 00 IT 



SPECIAL AML INTERRUPT CODE 



AMLNT 



BSDO 
* * * 



B8D0N: 



TSTIT 


XR,AMLADR 


BRA 


APFNT,FZ 


M8USC 


,AMLA0R,M80FF 



DISABLE AML INTERRUPTS 



LORI 

BRA 
XIF 

IFS 

2,70 
4.28 
4.85 



TEMPL,SVAMLI 
AMLINT 



AND USE ITS INTERRUPT VECTOR 
TO DO AML INTERRUPT 



TYPE 
* * * 



MICRO-BUS INTERRUPT 
DISK SERVICE 

APF SERVICE (4.30 RECEIVE) 
NO SERVICE 



ACKNOWLEDGE AND GET INTERRUPT NUM/ADDR 



MIFIAK 

TEMPI <- MIFIN 

IF MBSTaT ZERO THEN BSDON 

T <- TEMPI ,XOR, MADR FIADR BITS ZERO IF ADDRESS MATCHES 

IF (T .AND. FIADR) ZERO THEN MBPAGE 



TEMPI <~ TEMPI .AND, FIADR SELECT ADDRESS BITS 

MBUS (TEMPI, FCOINT, 8) CLEAR INTERRUPT MASK 

MBUS (TEMPI, FCLEAR, FKMAST-FKRWMF) AND MOST INTERRUPTS 

SRVBSN 



M8WAIT 

STB MIFIAK 

M8IN NOP 



LDRT TEMP2 
DOTI ,ND,FIA0R 
TSTRT XR,MAOR 



IFS 
BRA 
TSTRT 



APF 

AMLNT, FZ 
FI, MBSTAT 



HERE FOR SAFETY 

ACKNOWLEDGE THE INTERRUPT (700NSEC IAK) 

WAIT ON ACK-OATA 



SAVE DATA AWAY FOR WHOEVER NEEDS IT 
SELECT THE ADDRESS BITS TO BE CHECKED 
WAS THE ADDRESS OK? 



NOT CORRECT, NOT DISKETTE 
NON-ZERO IF DISKETTE CODE ACTIVE 
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1000 

10*1 

1002 

1003 

1004 

1008 

1009 

1010 

1011. 

1012. 

1013' 
1014. 



002713L 11010011 01001000 



002714L 
»0027l5L 
>00271«L 



01110001 

01011001 

11001111 



11U0010 

i i n 1 1 1 1 

HliUli 



BRA 
XIF 


amlnt,tz 


IFS 
IFC 
XIF 


TYPE 
APF 


IFS 

LDTR 

BRAX 


TYPE 

TEMP2 

MBPAGE 



IFS 



NOT ACTIVE, NOT DISKETTE CHQE 



LOAD HIGH BITS FOR INTERRUPT CODE 
OK, DO MICRO-DISKETTE INTERRUPT 



APF 



( 

( 
( 
( 
( 
< 
( 
I 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 

( 

( 
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l«17l 
1018. 
1019, 

1020, 

102l f 
1022. 
1023. 
1024. 
1025, 
1026, 

1027, 
1028 

1029, 
1030. 
1031. 

10321 



1033*. 



1034, 

1035. 



10361 
10371 
1038, 
1039. 
1040, 
1041, 
1042, 
1043, 
1044, 
1045, 
1046, 
1047. 
1048; 
10491 
1050, 
10511 
1052. 



1053'. 



002717L 
002717L 
002720L 



002721L 
002722L 
002723L 
002724L 
002725L 
002726L 
002727L 
002730L 
002731L 
002732L 
002733L 
002734L 
002735L 
002736L 



002737L 



002737L 
002740L 
002741L 
002742L 
002743L 
002744L 
002745L 
002748L 
002747L 
002750L 
002751L 



01000000 
11010010 



11010100 
11000111 
00110001 
01010101 
00110111 
01010001 
00110111 
01010001 

00110111 
01011001 
01110001 
01000101 
11010010 
11011111 



01101111 
01010011 
11011100 
00110111 
01010001 

00110111 

00110111 
01110001 
01010011 
11011100 
00110111 



00001110 
00100000 



00101110 
01101011 
11011100 
H1110U 
00000100 
01011010 
H000000 
11101111 

11100000 

11111000 

11110010 
10000000 
01001001 
01111111 



11110010 
10H0000 
00011U0 
001.00110 
00000000 
00100111 
00101001 
11U0010 
00U0000 
00010111 
00100110 



APFNT: 



APFNT 



BSDON 



INTERRUPT APFNT 
BEGIN 

IAKODE !■ MBIN (IAK)» 
T t» IAKODE ,XOR. MTADRJ 
IF CT .AND. FIAOR) ■ ZERO 
THEN 



INTERRUPT INTERFACE 



GET INTERRUPT IAK CODE 
SET BITS OFF IF CORRECT DEV 
IS IT THE EXPECTED ADDRESS 
YES, GO TO 1 DF 4 SERVICES 
** ADDRESS HERE *** 
T8TIT XR,MTAOR 
BRA BSDON, FZ 

EXIT (CASE T OF 

(IRNXT, IREOT, ITNXT, ITBOT)) 

** ITRPT SPECIAL CASE OF ITBOT ** 
MWAIT f M£MPF2 BYPASS WASTED IFETCH 

DOPIP MODW,ND,-l-8WUSER,PSWI TEMPORARILY DISABLE USER MODE 



** CONTINUE FROM kHERE LEFT OFF ** 



OLOPT MARO,MTTLEN 



(SPACE HERE * COMMON CODE) 



BPGX IRNXT 

TSTIR ,MIRNXT,XOR.MITNXT,TEMP2 *OTMER METHODS OF BRANCHING* 



BRA 
BRA 
XIF 
IFS TYPE 



ITINT,FZ 
IRINT 



*ARE JUST AS POSSIBLE* 



ELSE BEGIN 

♦REGULAR BSOON CODE HERE* 
MBOUT (IAKODE .AND. FlADR, 0260, 0); 

LOAD DISKETTE INTERRUPT MASK 
MBOUT (IAKODE ,ANO. FIADR, 060, 037) 

CLEAR DISKETTE INTERRUPTS 

end; 

RETURN 
END APFNTf 



LDRT TEMP2 
MBUS ,FCOINT,0 



SAVE THE ADDRESS (ONLY) 
NO MORE INTERRUPTS FROM IT 



MBUS TEMP2,FCLEAR,FKMAST-FKRWMF 



AND CLEAR MOST INTERRUPTS 
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10541 
1055, 
1056. 
10571 
1058, 
1059' 
I860, 
1061, 
1062, 
1063, 
10641 

1065* 
10661 
1067, 
1068. 



1069, 
1070, 
1071^ 
1072* 

1073, 

1074 

1075, 

1076, 

1077, 

1078, 

1079, 

1088, 

1081, 

1082, 

1883, 

10841 

1085. 



1087, 
1888. 

1089' 
1090. 

1091* 
1092, 
1093, 
1094, 
10951 
1096, 
10971 



082752L 
082753L 
8&2754L 



01810001 
0*110111 
001151111 



00011111 

00109IH1 

08101001 



002755L 



8P2755L 
0P2756L 
8&2757L 



00110001 

01000101 

1101&&11 



00110008 
00018000 
01100011 



0&2768L 01811001 11111801 
802761L 11001111 11111111 



002762L 



802762L 
002763L 
002764L 

002765L 

082765L 

002766L 

>802767L 

802770L 

002771L 

>002772L 

>002773L 



00110111 

01010001 
01101111 



11010100 
11088111 
01011001 
00110001 
01088101 
11800011 
11801111 



00001010 
80100100 

1111PI010 



00001810 
01181011 

muni 

11011100 
08100000 
llltllll 

liiiiiii 



■ 
* 



SRVBSNj 



* 
DLDO 

■ 

« 

* 

OMDO 



T <-» SRVREG 

IF OSPNL ZERO THEN SRVRTW 

OLOO 

TSTIP ,SCDSPNL,SRVREQ 

BRA SRVRTW,TZ 
XIF 

BRAX OLSOO 



NOTEl THE ABOVE CODE ASSUMES ONLY 
DISKETTES CAN CAUSE INTERRUPTS 
IF OTHER BOXES AOOED TO BUS, CODE 
HAY NEED CHANGING, 

MICRO«-BUS INTERRUPT RETURN 



DISPLAY SERVICE NEEDED? 

NO, ONLY THAT IS OF INTEREST HERE 



DI8PLAV - KEYBOARD 

MOVE TO LAST WORD OF PAGE * BECOMES 
BPGX $+1 U CAUSE OLSDO NEXT 11 FASTER 



ONE MILLISECOND INTERRUPT CONTROL 



, SHOULD BE LAST INTERRUPT IN CHAIN BFCAUSE DOESN'T RETURN AS OTHERS DO 
, THROUGH SRVRET (GOES OFF ON ITS OWN) 



COMF 

TEMP <- SVONEMS 

IF IMP ZERO OR NOT SWRPT IN PSW 



AMLINT 



THEN SCDON 
ELSE SCLDO 

STB COMF 

LDRI TEMPL, SVONEMS 



MWAIT ,MEMPF2 

BPGX SCRAM 
TSTIP , SWRPT, PSWI 



BRA 
BRA 



SCRAM, TZ 
SCLST 



PC CORRECT FOR STACK PUSH 
PC MUST BE BACKED UP ONE 

CLEAR FLAG 

LOAD INTERRUPT VECTOR ADDRESS 

($♦1 OR SRV, RTN, FAULT GENERATES MEMRF) 

WAIT FOR UNUSED INST. FETCH TO COMPLETE 

WAS REPEATED INSTRUCTION? 

NO, THE P,C. CORRECT (IMP - UNKNOWN) 
YES, BACK UP P.C. TO IMP-SPEC, 



IF I-FETCH ENTRY PC POINTING TO NEXT INSTRUCTION TO EXECUTE SO CORRECT 

IMP IS ZERO BY WAY FETCH CODE WRITTEN 
IF NON-I-FETCH (REPEATED) PC POINTING TO INSTRUCTION BEING REPEATED 

IF IMP ZERO PC IS CORRECT, POINTING TO INST, TO CONTINUE 
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1098. 
1099, 
1100, 
1101. 



002774L illllUl Ullilll 

002775L 11111111 HI Hill 

0027761 11111111 11111111 

002777L lllllltl tllUlii 



f IF IMP NON-ZERO MUST BACK UP PC TO RE»0Q IMP SPEC CODE WHEN MACRO*RETURNS 
, COULD SIMPLIFY, IF IMP-NON-ZEPQ MUST BACKUP BECAUSE IS IMPwSPEC REPEATED 

■ 



TABPA6E PRODL 
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1104: 

H06, 
1107, 

11081 



1109. 

1110'. 



1112, 
1113. 

1114' 
U15, 

me: 

1117. 



1118. 



1119. 
1120. 

H2ll 

11221 
1123, 
U24, 
1125, 
1126, 
1127, 
1128, 
11301 
1131, 
1132, 
11331 

11341 

11351 

1136'. 

11371 
11381 

11391 

1140. 
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003000L 



P03000L 
003001L 
003002L 
003003L 
003004L 
003005L 
003006L 
003«07L 

003010L 
003011L 
003012L 
003013L 

003014L 
003015L 
003016L 
003017U 
003020L 
003021L 
003022L 
003023L 
003024L 
003025L 

003026L 
003027L 
003030U 
0030311 



01010001 
01101111 

11000100 

U000U1 

001103101 
01010101 
00110111 

11001111 

00110001 
01000010 
00010001 
1100000* 

11000100 

11000111 
01010001 
00110111 
00110111 
01010001 
11000100 

11000111 

00110010 
00110111 

00010001 
11000011 

00000110 



11110111 

11110000 
11111101 
11001101 

11011100 

11111011 

00000100 

11*01011 

00110001 

10000000 
11110000 
11100101 

11110011 

11001101 
01101011 

11000000 
01000111 
00000000 

11101101 

11001101 

00110110 

00100001 

J 11 1 1 1 1 

11100110 

01111111 



I3031L 01010001 10011100 



003032L 
01030331 
0030341 
003035L 
0030361 
003037L 
003040L 
0030411 
003042L 
003043L 
003044L 
003045L 
003046L 
0030471 



11000100 
11000111 
00110111 
00110111 
01010100 

00000111 
11000100 
11000111 
00110001 
00110111 
00110111 
01101111 
01010001 
01101111 



U100101 
11001101 
11W0P000 
01000111 
00000010 
11110000 
11011111 

11001101 
00110110 
00001100 
01000111 
HH0001 

11001111 

11110000 
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olsoo: 

* * * * 4'.60 * * * * ♦ 2,15 if bottom line 

* 

SAL L!NK # DLNL SET UP RETURN FROM KEY SERVICE 

MWAIT ,MEMPFDL WAIT ON WAISTED IFETCH 

OOPIP MnDW,ND,-i-SWU8ER.PSNI ** DISABLE USER MOOE FOR READS/WRITES ** 



DLNL 



DLACNINC 



DLNXT 



BRA KBDSOO 

TSTIP ACSTBQTLN, STATUS 



LDTR 

BRA 



TCLR 
MWAIT 

OOPP 

IFS 
LDTR 
BRA 
INCR 

XIF 
IFC 

XIF 
LOTI 

MWAIT 

LDPT 

OORI 

MWAIT 

LOTP 
STB 

LORT 
BAL 



POLNP 
DLNXT, FC 



MWAIT ,MEMPFDL 

LOPI MAROL,SELFREQ,SMR 



# M£MPFDL 
MDW,AC,MQR 

APF 

ACCTL,CC 
OLACNINC,TZ 
ACCTL 

A"F 

SEDLBOT 

,M£MPFDL 

MAROL#SMR 

POLNP, SB, 2 

.MEMPFDL 

MDR 
IMAR.SMR 

TEMPI 
LINK,DLNLR 



GO DO FIRST KEYBOARD SERVICE 
SET CARRY IF BOTTOM LINE STATUS 

NOT YET 

WAIT ON KBO STATUS BIT WRITE 

GET FREQ COUNTER, SAME PAGE AS KBO STUFF 

SET T-REG ZERO (NOTE! CARRY IS TRUEU) 

ADO ONE AND RESTORE IT 

DO NOT INCREMENT IF CHANNEL OFF 



POINT TO BOTTOM LINE FOR SCAN 

SET LSB OF ADORESS AND READ ADDRESS LSB 
SUBTRACT 2 FROM LIST POINTER 



GET LSB OF DATA POINTER 
GET MSB ALSO 

HOLD LSB FOR THE MOMENT 

SET UP RETURN ADDRESS (VERY EARLYH 



( 

( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
{ 
( 
( 
( 
( 
( 
( 
< 
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11421 
1143*. 

1145, 

1M6. 

H47l 

1140. 
1149. 



PROD/TXT 



003«50L 
003051L 
003052L 
003053L 
003054L 
003055L 
003*561 
003057L 



11000100 
11000111 
00110001 

001101U 
01110001 
00110111 
00110111 
11001111 



11010111 
U001101 

00110110 

U100000 
11110001 
H000000 
01000001 
11001011 



003060U 01011001 11111010 

003061L 11011H1 01110001 

00306SL 00110111 01000001 

0030631 11001111 00100100 
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* 
OLNLR 



MWAIT ,M£MPFOL 

LDPP MAROH,MDR 

LDPR MAROLiTEMPliLOMAP 

BRA KBO*DO 

BRAX SRVNXT 



MEMPFDL STB LDMAP 

BRA MEMPF3 



GET MSB POINTER 

AND LSB» AND STROBE TO LOAD THE DMA PNTR 

GO DO THE SECOND KFYBOARD SCAN 
RETURN FROM SERVICE OR GO TO MEMPF 

CLEAR INTERRUPT ON ANY MEMORY FAULT 
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1150, 
1151, 

11531 

1154, 
1155, 
1156, 
1157. 
1158. 
1159, 
1160, 
1161, 
1162, 
1163, 
1164, 
1165, 
1166, 
1167, 
1168, 
11691 
U78, 
1171, 
11^2, 
1173, 
1174. 



1175 

1176 
1177 

1178 

1179 
1180 
1181 
1182 
1183 
1184 
1185 
U86 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 



PROD/TXT 



003064L 



003064L 
003065L 
0030661 
003&671 
003070L 
003071L 
003072L 

0030731 
003074L 
0030751. 

0030761 
0030771, 
803180L 
003101U 



003102L 
003103U 
003104L 
003185L 
003106L 
003107L 
003U0L 
003111L 
00311PL 
003113L 



01010001 

00110111 

01010001 

00110111 
00110001 
01000101 
11000011 

00010001 
01000100 
11000000 

00010010 
01010010 

01101111 

11101111 



01010001 
11001111 
01010001 

11001111 

01010001 

11001111 

01010001 
11001111 
01010001 
11001111 



01101001 
1 1000008 
11101111 
11100000 
00110001 
01000000 
11000111 

10110001 
00010000 
10011111 

00110001 
10011111 
11110001 

00000801 



00000010 
10088008 
00008801 

10000000 

00880010 
10080001 

08081008 
18008081 

10800000 
81110100 
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KBDSDO 
* # * 



OR 



5,60 
2.95 
4.85 
4,65 

0,70 
0.50 



# # * 4,28 

OR 4,35 

OR 4, 33 

OR 5,58 

OR 5,58 

OR 5,85 

OR 6,70 



* * * NEW KEY JUST WENT DOWN 

THE KEY IS UP AND WAS NOT LAST TO GO DOWN 

REPEATED KEY UP 

REPEATED KEY DOWN 

IF <SPACE>, <CANCEL>i <•># <BACKSPACE> 

IF «ENTER> 

* * * KBKS1 STATUS BIT (UP OR DOWN) 

KBKS2 STATUS BIT 

KBREINT STATUS BIT OOWN 

KBREINT STATUS BIT \JP 

RESTART - IMP ZERO TO SCROM 

RESTART - NON»PPT»0 INST, TO SCROM 

RESTART m RPT'O & IMP NON-ZERO TO 8CRQM 



SCAN THE KEYBOARD BY* 

1) WAIT FOR THE LAST SCAN TO COMPLETE 

2) IF SPECIAL KEY, DO IT'S TYPE OF SERVICE (SET OR CLEAR STATUS BIT) 

3) IF NEW CLOSURE GET KEYCOOE, SAVE IT, AND SAVE THE SCAN NUMBER 

4) IF NOT THE SAME KEY AS SPECIFIED BY LAST SCAN NUMBER THEN DONE 
55 IF SAME, AND STILL OOWN, SET STATUS BIT ELSE, CLEAR IT 



OLDPI MAR0,8EKBSt 

KBOWAIT TSTIP ,STKBRDY, STATUS 

BRA KBOWAIT, TZ 

TSTIR SB,16,KBSCNT,CC 

BRA KBKEY,FC 



MIDDLE OF 3 BYTES THAT WILL WORK WITH 



DOTR 


,AC,KBSCNT,,C0 


OOTA 


,AC,KBT8L 


BAS 


TEMPI 


BRR 


TEMPI 


LOTI 


SEKBOKY 


BRA 


KBKS1 


LDTI 


SEOSPKY 


BRA 


KBKS1 


LOTI 


SEFUNC2 


BRA 


KBKS2 


LDTI 


SEFUNC4 


BRA 


KBKS2 


LOTI 


3EINTKY 


BRA 


KBREINT 



(LOOPS ONCE ON SECOND SERVICE, MAYBE) 
(NOT READY TILL 5,3 MICRONS FROM KBSC) 

15 IT FUNCTION KEY (OR THAT GROUP?) 

NO, REGULAR KEY 

DOUBLE THE NUMBER FOR JUMP TABLE 

MAKE IT A BACKWARDS TABLE OFFSET 

PUSH 

RETURN 

INTO THE TABLE THIS IS TOP OF 

17 KEYBOARD KEY 

16 DISPLAY KEY 
15 F2 KEY 

14 F4 KEY 

13 INTERRUPT KEY 
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11971 


1198, 


1199, 


1200, 
1201, 


12021 
1203, 


12041 
1205, 
1206, 


1207, 

12081 


1209, 


12101 
1211, 


1212, 


1213, 


1214, 


12151 


12161 


1217, 


1218. 



1219. 



PROD/TXT 




MICRO* 


•PROCESSOR 


EMULATI 








, DISPLAY * KEYBOARD SE 


003114L 


0181000! 


00010000 




LOTI 


SEFUNC5 


003H5L 


1100111! 


10000001 




BRA 


KBKS2 


003H6L 


01010001 


00000J00 




LDTI 


SEFUNC3 


003U7L 


11001U1 


10000001 




BRA 


KBKS2 


003120L 


0101000! 


00000100 




LDTI 


SEKBRDY 


003121L 


11001111 


10011110 




BRA 


KBREG 


003122L 


0101000! 


00000100 




LDTI 


SEKBRDY 


0031231. 


H001U1 


10011110 




BRA 


KBREG 


003124U 


0J010001 


00000001 




LDTI 


SEFUNCt 


003125L 


11001111 


10000001 




BRA 


KBKS2 


003126L 


01010001 


01000000 




LDTI 


SEATTKV 


803127L 


11001111 


10000001 




BRA 


KBKS2 


0031301 


01010001 


00100000 




LDTI 


SERSTKY 


0031311 


1100111! 


01110100 




BRA 


KBREINT 


0031321 


01010001 


00000100 




LDTI 


SEKBRDY 


003133L 


11001111 


10011110 




BRA 


KBREG 


003134L 


01010001 


00000100 




LDTI 


SEKBRDY 


003135L 


1100111! 


10011110 




BRA 


KBREG 


003136L 


01010001 


00000100 




LDTI 


SEKBRDY 


003137L 


11001111 


10011110 




BRA 


KBREG 


003140L 






KBTBL 






003140L 


0101000! 


00000100 


KBKEY 

• 


LDTI 
BRA 


SEKBRDY 
KBREG 



78JUL8B 11144 



12 F5 KEY 

11 F3 KEY 

10 , (POINT) KEY 

7 NQ»KEY 

6 Fl KEY 

5 ATTENTION KEY 

4 RESTART KEY 

3 SPACE BAR 

2 BACKSPACE KEY 

1 CANCEL KEY 

ENTER KEY 
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1220, 
1221, 

1222. 

12231 

1224. 

1226. 
1227* 

1228, 

* C C 3f • 

1230, 
1231, 
1 232 . 

1233. 

1234'. 
1235*. 
1236*. 

12371 

1238. 

1239 r . 
12401 
124ll 

* 4m W <fe A 

1243, 
1244, 



PROD/TXT 
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1248, 
1249. 

1250' 
1251, 
1252. 

1253'. 

1254*. 

12551 



003141L 
003142L 
003143L 
0«3144L 
003145L 
003146L 
003147L 
003150L 
003151L 



003152L 
003153L 
003154L 
003155L 
003156L 
003157L 
003160L 
003161L 
003162L 
003163L 
003164L 
003165L 
003166L 
003167L 
003170L 
003171L 
003172L 
003173L 
003174L 
003175L 



0U01111 

00110001 
01000101 
11000010 
00010001 
00010000 
11000010 
01010001 
11001111 



00110111 
00110001 
00110111 

00010001 

00000111 
11000100 

11000111 
00110111 
00110111 
01110001 
11000100 
11000111 
00110011 
00110) 11 
00010001 
00010110 
01010101 
00110111 
00000111 
11101111 



11110001 
00110001 
00010000 
10010101 
11110001 
11000010 
10000111 

00001000 
10000000 



00001100 
01010000 
00100001 
11110001 
11110010 
10010000 

11001101 
00001101 
01000111 
11110001 
10001011 
11001101 

00110110 
00100001 

11110001 

01110010 
00111111 

01000100 
11110001 
00000000 



1245, 003176L 00110111 00001101 

1846, 

1247. 



003177L 
003200L 
003201L 
003202L 
003203L 

003204L 
003205L 
003206L 
003207L 
003210L 
003211L 
003212L 



00110111 

01101111 

00110001 
01000101 
11000010 

01110001 
01010000 
11000100 
11000111 
00110101 
00110111 

11001111 



01000111 
11110001 
00110001 
00100000 
10001100 

11110001 

11111111 
01111001 

11001101 

00110110 
00100001 
10000111 



KBREG 



KBGET 



KBCLS 



KBDQN 



* 
KBK82 

K9K81 



KBOPN 



LORT TEMPI 

TSTIP f STKBKCtSTATU8 

BRA KBGET, FZ 

TSTRR XR,SCANSV,KBSCNT 



BRA 


KBDON,FZ 


LOTI 


SEKBDWN 


BRA 


KBKS1 



STB IMAR 

LDPP MDW,KBDD 

LDRR SCANSV,KBSCNT 

MWAIT ,M£MPFOL 

STB OMAR,SMR 

LDTR TEMPI 

MWAIT ,MEMPFOL 

OOPP MDW,OR,MDR 

DOTRR ,IT,G,KBSCNT,Cl 

OOPI KBSC, NO, 077 

LDRT KBSCMT,CC 

BRR LINK 

STB DMAR 

STB SMR 

LDRT TEMPI 

TSTIP ,STKBNS, STATUS 

BRA KBCLS, FZ 

DOTIR ,XR,0377,T£MP1 

MWAIT ,MEMPFOL 

DOPP MDW f NO,MDR 

BRA KBDQN 



NEW CLOSURE? 

YES# DO IT 

SAME AS THE LAST KEY? 

NO, FINISHED 

YES, SAME KEY 

CONTINUOUSLY SET THE BIT IF STILL DOWN 

CLEAR BIT CONTINUOUSLY IF UP 

IF GOES DOWN AGAIN GET NEW CLOSURE 

RATHER THAN REPEATED CLOSURE! 

KEYBOARD CHARACTER SAVE ARFA 
OUTPUT THE DATA 

SAVE THE SCAN NUMBER (FOR REPEATS) 



POINT BACK TO SEKBSl 
GET BIT TO SET 

SET IT 

POINT TO THE NEXT SCAN ENTRY (CLEAR) 

KEEPING THE NUMBER IN RANGE CCARRY ALSO) 

f5.3 MICRO-SEC TIME TILL READY FROM NOW) 
AND RETURN FROM KEY SERVICE ON ERROR TOO 

POINT TO SEKBKS2 

GET THE STATUS BYTE 
SAVE THE STATUS BITS 
KEY CLOSED? 

YES 

NO, OPEN, TURN THE BIT OFF 

BY ANDING IT OUT 
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1256. 
1257, 
1258. 



1259". 

1260* 
1261. 
1262'. 
12631 



1264 
1265J 
12661 
126?; 



1268. 



12691 
1270. 

127i; 
1272. 
12731 
12741 
12751 
1276, 
1277. 
12781 
1279, 
12801 

1281, 
1282, 
12831 

12841 

12851 

1286*. 

12871 

1288. 



PRQO/TXT 



MICROPROCESSOR EMULATION SUPPORT CODE - HJS - 
, DISPLAY - KEYBOARD SERVICE ROUTINES 



78JUL20 UJ44 



12891 
129«1 



003213L 
0032ML 
003215L 
003216L 
003217L 
003220L 

003221L 
003222L 
003223L 
003224L 
003225L 
003226L 
003227L 
003230L 
0&3231L 
003232L 
003233L 
003234L 
003235L 



003236L 
003237L 
003240L 
003241L 

>003242L 

>003243L 
003244L 
003245L 

>003246L 
003247L 
003250L 
003251L 
003252L 
003253L 

>003254L 



01101111 
00110111 
001101U 
00110001 

01000101 

1100001P 

0101000! 

11000100 
11000111 
00110101 

01000000 

11000010 

00110001 
01110000 
00110111 
01010001 
00010010 
001101H 
00000111 



01010001 
01101111 
11000100 
11000111 
01011001 
11001001 
00110001 
01000101 
11000011 
0011000! 
00110001 
00110111 
00U000! 
00110001 

1100111! 



11110001 
00001101 
01000111 
00110001 
00110000 
10001100 

10100000 
01101101 
11001101 
00110110 
10100000 
01111011 
00110110 
11110001 
00100001 
00000001 
00110001 
01000100 
11110001 



00000011 

11110010 

01011111 

11001101 

litlllll 
11111111 
11011100 

00100000 

1 1 1 1 U 1 1 
11001001 
11101000 
00*01101 
10001001 
10101000 
11111111 



KBREINT LDRT 
STB 



TEMPI 
0MAR,8MP 



SAVE THE BIT 
IN SEKBKS2 



TSTIP ,STKBKC+STKBNS, STATUS NEW CLOSURE OR STILL CLOSED? 



BRA 



KBCLS,FZ 



LOTI SEINTKY+SERSTKY 

MWAIT ,MEMPFDL 

DOTP ,ND,MDR 

TSTIT XR, SEINTKY+SERSTKY 

BRA KBOPN,FZ 

OOPRP MDW,XR, TEMPI, MOR 



DOPRI KBSC,AC,KBSCNT,1,C0 



LDRT 



KBSCNT 



YES, ITS DOWN, SO SET IT! 



IT IS UP! SEE IF BOTH KEYS WERE DOWN 

SELECT RESTART AND INTFRRUPT KEYS 

WERE BOTH SET? 

NO, ONLY ONE 

YES, TURN THE BIT OFF & DO A RESTART 



FINISH LIKE REGULAR, BUT INLINE 



ONLY KEYBOARD INVOLVED (INLINE SRVRTW) 



*** NOTE! MAY WANT TO CHANSE OR ADD CODE TO STOP COMMUNICATIONS IN PROGRESS! ** 
(WILL DO IT IN MACRO-LEVEL CODE) 

I SPECIAL SERVICE REQUESTED INSTRUCTION LEVEL SYSTEM CALL INTERRUPT 
, THE P'.C. MUST BE BACKED UP IF IMP NONZERO, TO THE IMP SPEC. 
. ELSE IT IS POINTING TO THE INSTRUCTION TO EXECUTE NEXT 
OR BEING EXECUTED IF REPEATED! 

NOTEJ THE PRESENT WAY CODE WORKS IF NOT REPEATED (OR NOT STARTED YET) 
THEN IMP MUST BE ZERO BECAUSE CAN'T INTERRUPT BETWEEN IMP, SPEC & OPCOOF 
BUT CODE BELOW WILL WORK ANYWAY (TOO GENERALIZED) 
I.E. IF IMP-NON-ZERO MUST BE REPEATED THEREFORE MUST BACK IT UP'. 



LDRI TEMPL,8RRSTRT 

MWAIT ,MF.MPFOL 

BRAX SCROM,T#,IZ 

TSTIP ,SWRPT,PSWI 

BRA SCROM,TZ 

DLDX PC2MR,,DMAR 

DLDX MR8PC 

BRA SCROM 



SET RESTART ADDRESS 

IMP ZERO, POINTING TO INSTRUCTION 

IS IT REPEATED? 

NO, THEN P,C, POINTS TO INSTRUCTION 
YES, THEN BACK THE PC UP 

BEFORE DOING THE RESTART 
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1293. 

12941 

12951 

1296. 

1297,. 

1298 

1299. 

1 300* 

13011 

1302. 

13031 

1304. 

1305, 

1306. 

1307, 

1308;, 

1309, 

1310, 

1311. 

1312'. 



1313. 
1314*. 

13151 
1316, 
1317, 
1318. 
13191 
1320. 
1321. 

132l f . 

1321'. 

1321'. 

13211 

1 322, 
1323, 
1324, 
1325. 

13261 
1327. 

1328* 
1329. 

1330*. 



PROP/TXT 
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003255L 



003255L 
003256L 
003257L 
003260L 
003261L 
003262L 
003263L 

003264L 
003265L 

003266L 
003267L 
003270L 
003271L 
003272L 
003273L 
003274L 
003275L 
003276L 
003277L 
003300L 



003301L 
003302L 
003303L 
003304L 
003305L 
003306L 
003307L 
003310L 
003311L 



00110001 
01000101 

11000010 

00110001 
0101010! 

00110111 

00010111 

01010100 
11000001 

001101H 
00110111 
00110111 
00110111 
0011 011 1 
00110111 
00110111 
00110111 
00110111 
00H01U 
11000010 



0101000! 

00110111 
00110001 
00110001 
00110111 
00110111 
11000100 
11000U1 

00110111 



11*11100 
00*00100 
001001H 
11010000 

01U1111 

0100*011 
10110810 

00001010 
00101011 

01000010 
01000010 
01000010 
01000010 
01000010 
01000010 
01000010 
01000010 
01000010 
01000010 
01001011 



00000111 
00000001 
11100101 
11000110 
01000111 
00001001 
00111000 
00100101 
00001100 



LODCFl 



LDCFPT 
LOCFLP 



155) LOOCF 



LOAD CHARACTER FONT 
CMAKE repeated USING C?) 



* * * 21,8 ♦ A * 0.15 + INT £a / 10) * 0,4 

* 1,0 IF REM CA / 10) a AND A • 



* * * 



IF USER THEN IVIOL$ 

SDLM 

REPEAT <A» TIMES SKCH 

FOR IMP ■ 7 TO 1 

MARL <- (HL) 

ML <- HL + 1 

LDCH 

END 
ROLM 



TSTIP ,3WUSER.PSwi 



SET DISPLAY LOAD MODE 
SKIP CHARACTER FONTS 



LOAO FONT ROW AND BACK UP TO NEXT 
RESET DISPLAY LOAD MODE 



BRA 
OOTIP 

STB 

CCLR 

OOTI 
BRA 
RPT 
STB 

STB 

STB 

STB 

STB 

BRA 
, QUESTION, IF 



IVI0L3,FZ 
,NOi0177 l URI+URA 

SDLM 



,SB,10 

L0CFNL,TC 

5 

SKCH, SKCH 

SKCH, SKCH 

SKCH, SKCH 

SKCH, SKCH 

SKCH, SKCH 



ONLY 7 BITS OF DATA! 
PUT IT IN LOAD FONT MODE 



COUNT IN STEPS OF TEN 

IF AT END, DO FINAL STUFF 

THERE ARE TEN STROBES IN THE SPEEDUP 



LDCFPT, FZ DONE AND DONE WELL CI HOPE) 

ROOM, DO IN 16'S AND JUMP ENTRY WITH IMP COUNTING GROUPS LEFT 



LDPI LIMP, 7 



LDCFLD 



LDX 
LDX 

STB 

MWAIT 

STB 



HL2MRH 
HL2MRL,SMR 

DIMP 
,MEMPFCF 

IMAR 



SET UP FOR 7 ROWS PER FONT 

INIT MARH TO FONT STRING 

NOW CAN FINALLY START ACTUAL FONT LOAD 

LOADING MARL >400 S AFTER LDCH 
IF ERROR, RESET LOAD MODE 
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13311 

13321 



13331 
13341 
13351 
1336, 

13371 



1338 

1339 

1340 

1341 

1342 

1343, 

1344, 

1345. 

1346* 

1347. 

13481 

13491 

1350* 
1351, 
1352. 

I3*v> 
1354, 
1561, 
15621 



PROD/TXT 



MICRO-PROCESSOR EMULATION SUPPORT CODE « HJS - 
, LOAD CHARACTER FONT 



78JUL20 UM4 



003312L 
003313L 
003314L 
003315L 
003318L 
003317L 
003320L 
003321L 
003322L 
003323L 

003324L 



083324L 
003325L 
00332SL 
0»3327L 



00110001 

001110001 
00110111 
00110111 
11001111 
11001000 
001100®1 
00110111 

01011001 
11001111 



01010010 
01101111 
01010001 
11101111 



10000110 
00110110 
11000000 
01000000 
00110000 
00111011 
10100101 
01000101 
11111011 
11101101 



01001000 
10110000 

00000000 
00000000 



>003330L 01011001 11111111 
>003331L 11001111 11111111 



00333?L 
003333L 
003334L 



00110111 
0101 1001 
11001111 



01000101 
11111011 

01101010 



LOX 


MR2XXL+URL 


LDPP 


MAROL,MDR,LDCH 


BRA 


S + l 


BRA 


LDCFLO,F#,IZ 


LOX 


MPgXXM+URH 


STB 


«OL« 


BRAX 


FETCH 



UPDATE HL THE FASTEST WAY 

GET THE CHARACTER RUT AND LQAQ THE FONT 



200 SEC. DELAY ADDED FOR LDCH (400 

LOOP TILL ALL SEVEN ROWS DONE 

GET NEW HL CAUSE L UPDATED 

RESET LOAD MODE C>400 S AFTER LDCH) 



LDCFNL 

, FOR THE FINAL STEP ONLY GO PARTIALL* THROUGH THE LOOP 

, T >»0M0 STEPS, M«9 STEPS, -2«8 STEPS, ,.. -9«1 STEP 

, SKIPS STEPS, 1 STEP 2 STEPS, ... 9 STEPS 



S) 



* 
IVI0L3 



MEMPFCF 
MEMPF3 



OOTA 
BAS 
TCLR 
BRR 

BRAX 



STB 
BRAX 



IFC 
XIF 
IFS 



,AC,LDCFLP+1 
LINK,CC 

LINK 
IVIOLS 



RDLM 

MEMPFS 



ADDS ADDRESS TO NEGATIVE VALUE (CRY SET) 
MOVES FORWARD FROM LDCFSK (1 TO 9 STEPS) 
MARK ENDED 
DO AS MANY STEPS AS NEEDED 



** SPECIAL FOR LDCF, OUT OF LOAD MODE ** 



APF 
APF 
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15651 

1566. 

1567, 

15«8, 

1569. 

1570, 

1571 

1372; 

15731 

1574. 

15751 

1576, 

1577, 

15781 

15791 

15801 

1581, 

1582, 

1583 

1584. 

15851 

1586. 

15871 

1588, 

1589. 

15901 

1591. 

1592'. 

15931 
1594, 
1595. 
15961 
1597. 

1598". 
1599^ 

16001 

ie*i, 

16021 

1603, 
16041 
16051 
1606, 

i607j 

1608, 
1609, 
1610, 
16111 
1612. 



PROD/TXT 



000203 
000253 

000310 

000318 
000360 

0033351 



003335L 
003336L 
003337L 
0*334*L 
0033411 
003342L 
003343L 
003344L 
003345L 
003346L 
0*3347L 



01010**1 
011011 If 

0*110*01 
01000101 
11000010 

01011001 
00010001 

11000*10 
01110001 
00000111 
11001111 



10000011 
11110001 
11*11100 
00*00100 
0010*111 
11U1011 

11*01111 
11101011 
1111*001 
llflllll 

11101011 



0*335s*L 110*1110 11111111 
0033511 



003351L 
0*33521 
003353U 
0*3354L 

003355L 
003356L 
003357L 



01*10*01 
11001*10 
01010001 
110*1111 

11111111 
11111111 
11111111 



1111***0 
00100001 
10101011 
*0100001 

11111111 
11111111 

11111111 



DATAPOINT CONFIDENTIAL INFORMATION * SEC PAGE 1 

MICROPROCESSOR EMULATION SUPPORT CODE - HJ8 * 78JUL2* 11144 
. NOISE-MAKER INTERFACE. BEEPS. CUICKS & MAKES OTHER FUNNY NOISES 

* 

t DEFINE THE CONTROL BITS FOR THE AUDIO CHANNEL 



TOGGLE 87 

1 

FCN 86,5 00 

01 

10 

11 

DONE 84 

1 
COUNTER B3,2,l,0 



LOW niJTPUT (IF BEEPING) 

HIGH OUTPUT (ALWAYS) 

BEEP WITH LONG DELAY (NORMAL) 

BEEP WITH SHORT DELAY 

DELAYING 

CLICKING 

CONTINUE OOING OPERATION 

STOP, THE END (IF 87 IS 0) 

COUNT AT A 6*/50HZ RATE 



NOW, DEFINE THE CONTROL COMMANDS (INITI AL/FINAL VALUES) 



BPINIT 
BPSHRT 
DLYLNG 
DLYSRT 
CLKINI 

BFEPt 
CLICKS 



* 
CLICK! 

» 



EGU 
EOU 
EOU 
EQU 
EQU 



( 
(IMP 

LDTI 
LDRT 
TSTIP 

BRA 

BPGX 

T8TRT 

BRA 

LDRR 



B7+B4-13 
B7+B5+B4-5 
87+B6+84-8 
87+B6+B4-2 

B7+86+B5+84*0 



151) 
151) 



EX BEEP 
EX BEEP 



BPINIT 

TEMPI 
,SWUSER,PSWI 

IVI0L3,FZ 
FETCHI 
FI,ACCTL 
FETCHI, FZ 
ACCTL, TEMPI 



BRA FETCHI 
NOOP 



( 151) 
(IEV 151) 
(IOD 151) 



EX CLICK 
EX CLICK 
CLICKR 



LDTI CLKINI 

BRA CLICKS, F#, 10 

LDTI BPSHRT 

BRA CLICKS 

TABPAGE PRODL 



STANDARD BEEP ENDS WITH B7+84 

SHORT LENGTH ENDS WITH B7+B5+84 

STANDARD DELAY ENDS WITH B7+B6+84 

SHORT DEIAY ENDS WITH B7+B6+B4 

NORMAL CLOCK ENDS WITH 87+86+B5+84 



START AUDIBLE CHANNEL IF QUIET 
START AUDIBLE CHANNEL IF QUIET 

SETUP FOR BEEP OPERATION 

SAVE AWAY THE CONTROL BYTE 

IS IT LEGAL TO DO THE INSTRUCTION? 

NO, ERROR IT OUT 

ANY SOUNDS IN PROGRESS 

YES, SO DO NOTHING 

NO, SO INIT TO DO THE NEW SOUND 



(SO APF * NQNfAPF CLICKS ALIGN) 



START AUDIBLE CHANNEL IF QUIET 
START AUDIBLE CHANNEL IF QUIET 
SPECIAL NOISE IF QUIET 

ASSUME NORMAL CLICK 

IT WASJ 

NO, WAS SPECIAL SHORT REEP 



DATAPOINT CONFIDENTIAL INFORMATION * SEE PAGE 1 
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PROD/TXT 



MICRO-PROCESSOR EMULATION SUPPORT CODE w HJS - 78JUL20 1 1 S44 
t NOISE-MAKER INTERFACE. BEEPS, CLICKS & MAKES OTHER FUNNY NOISES 



1613, 

1614, 

1615, 

1616, 

1617, 

1618, 

1619, 

1620, 

1621, 

1 622, 

1623, 

1624, 

1625, 

1626, 

1627, 

1628. 

1629*. 

1630, 

1631, 

1632, 

1633, 

1634' 

1635* 

1636, 

1837. 

1638' 

1639: 

1640, 

16411 

1642. 

1643*. 



003360L 
003361L 
003362L 
003363L 
003364L 
003365L 
003366L 
003367L 
003370L 
003371L 
003372L 
003373L 
003374L 
003375L 
003376L 
003377L 

003400L 



1111 
1111 
1111 
1111 
1111 

nil 
mi 
nn 
nn 
nn 
nn 
nn 
\\\\ 
nn 

nn 



nn 
nn 
nn 
nn 
nn 
mi 
nn 
nn 
nn 
nn 
nn 
nn 
nn 
nn 
nn 
nn 



nn 
tin 
nn 
nn 
nn 
nn 
nn 
nn 
nn 
mi 
nn 
nn 
nn 
nn 
nn 
nn 



nn 
tin 
tin 
nn 
mi 
mi 
nn 
nn 
nn 
nn 
nn 
nn 
nn 
nn 
nn 
nn 



003409JL 


01010010 


10000000 




DOTI 


,AC»B7 


003401L 


11010«01 


11110010 




BRA 


ACOUTiTC 


003402L 


01000101 


00010000 




TSTIT 


tB4 


003403L 


11010011 


11110010 




BRA 


ACOUT. TZ 


003404L 


01000101 


01000000 




TSTIT 


# 86 


003405L 


11010W10 


11110011 




BRA 


ACEND.FZ 


00340«L 


01000101 


00100000 




TSTIT 


,B5 


003407L 


1101001« 


11110101 




BRA 


ACSHRT, FZ 


0&34101 


01010001 


11001000 




LDTI 


OLYLNG 


0034HL 


11011111 


11110010 




BRA 


ACOUT 


003412L 


01010001 


11001110 


ACSHRT 


LDTI 


DLYSRT 


0*»3413L 


11011111 


11110010 




BRA 


ACOUT 


003414L 


01010001 


00000000 


ACENO 


TCLR 




003415L 


00000111 


llllllll 


ACOUT 


LORT 


ACCTL 


003416L 


01000101 


11000000 




TSTIT 


,B7*B6,,TW 


003417L 


11010011 


1110tll0 




BRA 


ACOONE, TZ 


003420L 


01010001 


10111111 




LOT! 


0277 


003421L 


00110111 


00100010 


ACOONE 


LDPT 


LSPKR 


003422L 


01011001 


11111010 




BRAX 


SRVNXT 


003423L 


11011111 


011100»1 









ACSOOf 

. THE SPECIAL AUDIO CHANNEL CONTROL IS DONE HERE 

. OPERATION IS TO ALTERNATE THE TOGGLE (B7). 

. IF IT OR B6 IS SET, OUTPUT HIGH VALUE, ELSE LOW (WHEN BOTH LOW) 

, TEST FOR COMPLETION AND WHEN DONE THE TIMING, SEE IF MORE TO DO 

. CTHE DELAY). IP DELAY ALREADY DONE, THEN END, ELSE, LOAD UP THE DELAY 

, CONTROL BYTE TO DO IT. 

TOGGLE THE TOGGLE BIT 

WAS 1 (TO B), LOW OUTPUT IF BEEPING 

WAS (TO 1), NOT DONE, HIGH OUTPUT 

END THE CLICK OR DELAY IF BIT SET 

FINISHED LONG BEEP, DO LONG DELAY 

FINISHED SHORT BEEP, 00 SHORT DELAY 



FINISHED ALL OPERATIONS (ALLOW NEXT) 

SAVE THE NEW CONTROL BYTE 

HIGH OR LOW OUT? 

LOW RANGE, LOW VALUE, BOTH BITS ZERO 

MID RANGE, HIGH VALUE, ONE BIT WASN'T 
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1648. 
1647. 

1648". 
1649* 
1650. 
1651*. 
16521 
1653*, 
1654. 
1655*. 
1656* 
1657*. 
1658. 
1659. 
1660, 
1661. 
1662* 
16631 
1664. 



1665- 
1666. 
1667* 
1668, 
1669. 



1670. 



I67tl 

1672*. 
1673, 
1674; 
16751 
1676, 
1677. 

1678'. 
16791 
16801 
1681, 
16821 
1683, 
1684. 



1685. 

1686; 
1687. 



prod/txt 



MICRO-PROCESSOR EMULATION SUPPORT COOP - HJS - 
APF SPECIAL INTERFACE CONTROL INSTRUCTION 



78JUL20 11:44 



003424L 



003424L 
0K3425L 
003426L 
0&3427L 
00343ML 
003431L 
003432L 
003433L 
003434L 
003435L 
003436L 
003437L 
003440L 
003441L 



003442L 

003442L 
003443L 
003444L 
003445L 

003446L 
003447L 
003450L 

0OI3451L 
003452L 
003453L 
003454L 
003455L 
003456L 
003457L 



00111000! 
01010101 

11000010 

01101111 
110110510 
00110111 
00110001 
01*11000! 

01010001 
00110111 
01010001 
00110111 
01011001 
11011111 



00110! 1! 

0101000! 
00110111 
11011010 

00110111 

11001110 

11011000 

0101000! 
0011011! 
0011011! 

00010001 

0011011! 

0001000! 

11011111 



H011100 
00000100 

00100111 

11110010 
11011101 
00001100 
10001001 
10101000 
01011010 
U00«000 
11101111 
11100000 
11111000 
01000111 



00001001 

11101111 

11109)000 
10110101 

00001001 
llltllll 
11001111 

01011110 
11000000 
01000111 
1111H00 

10000010 

10111011 

11001001 



mtart: 




, ( 1475 


WR61 


fill 147) 


APFRL 


(062 147) 


APFRS 


. (113 147) 


APFTL 


(174 147) 


APFTS 


I instruction 


MTART 



WRITE TO THE 6! (START) 

LOAD THE RECEIVER CONTROLS 

SAVE (GET) THE RECEIVER CONTROLS 

LOAD THE TRANSMITTER CONTROLS 

SAVE (GET) THE TRANSMITTER CONTROLS 



50R) PROCESS 8 STARTUP 

* * * * 1.95 * * * * ♦ INTERRUPT ROUTINE ♦ FETCH AS EXTENDED 
, BEGIN 

, IF SWU8ER IN PSW THEN EXIT (IVIQLS)f 
t MTADR f« AODR? 
, PC l« MAR ♦ If 
, IMP :« 0| 
f IAKCO0E la 0* 

EXIT (ITNXT) 

TSTIP ,8WUSER,PSWI,TW 



* 
APFCTL 



ASSUMED BY DEFAULT 
UPDATE PC * IMP BECAUSE 
ABNORMAL EXIT TAKEN 
INTERRUPT ITNXT, NO REPEAT 



BRA IVI0L3,FZ 

LORT TEMP2 

BRA APFCTL, F#, 17 

STB IMAR 

OLOX MR2PC 

DLDPI MARO,MTTLEN 

BRAX ITNXT 
END MTARTl 



(IAKODE IS ZERO!) 



** COULD SAVE A BYTE HERE ** 



STB 
LDPI 

BRA 

STB 

NOOP 

BRA 

LDPI 



DIMP 
MAR0H,MTTLEN>8 

APPL00,F#,I0 

DIMP 

APFGXMT,F*,IZ 

MAR0L#MTRPNT,8mR 



IN RANGE TO 3 NQW 



2,4 CASE NOW 0,2 

SEE IF RCV OR XMT INFO WANTED 

WAS RECEIVE, GET MEMORY AND CONTROL DATA 



LOPR URO+URCAPFRK 



LOTR 

13 R A 



APFRP,CC 
APF6RCV 
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PRQD/TXT 



MICRO-PROCESSOR EMULATION SUPPORT CODE • HJS * 
APF SPECIAL INTERFACE CONTROL INSTRUCTION 



78JUL20 US** 



1688' 
1689, 

1600*. 



1691'. 

16921 
1693'. 
16941 
1695, 
1696. 

1697* 

16981 



16991 
17*0. 



1701. 

1782. 



17031 

1704. 



1705. 

1706'. 

1707* 

1708, 
1709. 
1710'. 

17U'. 

1712". 

1713'. 

1714* 
1715, 
17161 
17171 

1718'. 

1719*. 

1720*. 



003460L 
003460L 
003461L 
003462L 
003463L 
003464L 
003465L 

003466L 
003488L 
003467L 
003470L 
003471L 
003472L 
003473L 
003474L 
003475L 
00347«L 
003477L 
003500L 
003501L 
003502L 
003503L 
003504L 
003505L 
P03506L 
003507L 
003510L 
003511L 

003512L 
003512L 
003513L 
003514L 
003515L 
003516L 
003517L 
003520L 
003S21L 
003522L 
003523L 

003524L 
003524L 
003525L 
003526L 
003527L 
003530L 
003531L 
003532L 
003533L 



01010001 

00110111 
00110111 
00010001 
00110111 
00010001 



00110111 

11010100 
11000111 
00110001 
00110111 
00110111 
00H0U1 
11010100 
11000111 
00110001 
00110111 
00110111 
00110111 
11010100 
11000111 
00110001 
00110010 
00110111 
01011001 
11001111 



11011000 
01010001 
00110111 
00110001 
00110111 
00110001 
00000111 
00110001 
00000111 
11011U1 



01010001 
00110111 
00110001 

00U0U1 
00110001 
00000111 
00110001 
00000U1 



01011011 
11000000 
010001H 
11111110 
10000010 
10111101 



10000110 
11001000 
00100100 
00110110 
00001101 
01000111 
10000101 
11000010 
00100100 
00110110 
00001101 
01000111 
10000001 
10111100 
00100100 
00110110 
00110110 
00000110 
11111011 
11101101 



10101011 
01011110 
11000000 
11010101 
00100001 
11010110 
11111011 
11010010 
11111100 
10100011 



01011011 
1 1000000 
11010101 
00100001 
11010110 
11111101 
11010010 
11111110 



APFGXMT 



APFGRCV 



APFCC 



APFLOO 



APFLXMT 



LOPI MAROL#MTTPNT,SMR 

LOPR URO+URC#APFTK 

LOTR APFTP,CC 

LOPT URO+URL 

MWAIT ,M£MPF3 

LOTP MDR 

STB OMAR,SMR 

LDPT URO+URM 

MWAIT f M£MPF3 



LOTP 
STB 



WAS TRANSMIT DATA THAT DESIRED 



GOT THE LSB POINTER 



GOT THE MSB POINTER FROM MEMORY 



MDR 
OMAR,SMR 



GOT THE MSB LENGTH 



LDPT URO+URB 
MWAIT ,MEMPF3 

OOPPP LUF,AC,MOR,MDR 



BRAX FETCH 

BRA APFLXMT, F0,IZ 

LDPI MAROL,MTRPNT 

LOPP MDW,URI*URH 

LDRP APFRP,URI+URL 

LORP APFRK.URI+URC 

BRA APFLRCV 

LDPI MAROL#MTTPNT 

LDPP MOW,URI*URH 

LDRP APFTP,URI+URL 

LDRP APFTK,URI+URC 



SET THE USER FLAGS ON THE FLAG BYTE 



LOAD UP THE XMTT CONTROL BYTES 
NO, THE RECEIVE BYTES 

MSB POINTER 



LSB POINTER AND LENGTH 



MSB POINTER 



LSB POINTER AND LENGTH 
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172f. 
1723. 



1784 
1725. 

1726*. 
1727'. 

1728. 
1729. 
1730. 

17311 
1732, 
1733, 

1734J 
1735, 
1736. 
1737'. 

17381 
1739, 
1740, 
1741. 



PRQO/TXT 



MICROPROCESSOR EMULATION SUPPORT CODE - HJS 
APF SPECIAL INTERFACE CONTROL INSTRUCTION 



7SJUL20 11144 



1742*. 
17431 



17441 
1745, 
1746, 
1747. 
17481 
1749. 
17501 
1751. 



17521 
17531 



003534L 
003534L 
003535L 
003536L 
003537L 
00354PIL 
003541L 
003542L 
003543L 
003544L 
003545L 
003546L 
09I3547L 

003550L 



003550L 
003551L 
003552L 
003553L 

003554L 
003555L 
003556L 
003557L 
003560L 
003561L 
003562L 
003563L 
05I3564L 
003565L 
003566L 

003567L 
003570L 



11010100 
11000111 
00110111 
00 11 0001 
00110111 
01010001 
11010100 

11000111 
0*110111 

00110111 

01011001 
11001111 



10100011 
00100100 

00001101 

11010001 
00100001 
00000000 
10011101 
00100100 
0000H01 
00100001 
11111011 
11101111 



00110001 11011100 

01000101 00000100 

11000010 00100111 

11011000 10001000 



01010001 
11011100 
00110111 
01010001 
00110111 
00110111 
01010001 
00110111 
01011001 
01010001 

11001111 

01010001 
11011011 



00001101 
10010010 
00100110 
00000001 
00100111 
00101001 
00001001 
00000001 
11111011 
000100011 
10001001 

01011100 

10000101 



003571L 01010001 01011001 



003572L 
003573L 
003574L 
003575L 
003576L 
003577L 



00110111 
01010001 
00110111 
00110111 
00010111 
11011111 



11000000 
11101111 
11100000 
01000111 
10110010 

10111100 



APFLRCV 



AMLRET: 



MWAIT ,MgMRF3 

STB OMAR 

LOPP MDW,URI+URB 

TCLR 

MWAIT ,MEMPF3 



MSB LENGTH 



STB 

LDPT 

BRAX 



OMAR 

MOW 

FETCHW 



( 177) AMLRET 
(111 1773 APFRST 
(062 177) APFTST 

TSTIP ,SWUSER,PSWI 

BRA IVIOL3,FZ 
BRA APFSTAT,F0,IZ 

MBUSC ,AMLADR,MBON 



ANO ZERO THE FLAG BYTE 



RE-ENABLE AML CHANNEL THEN DO SYSTEM RET 
GET APF RECEIVER STATUS 
GET APF TRANSMITTER STATUS 

INSURE THAT ALLOWED TO DO IT 



WILL BE 4PF STATUS OPS 
RE-ENABLF THE AML CHANNEL 



LDPI LIMP,PCt. 

BRCX POPST0, ,SYSRET0 



THEN DO A SYSTEM RETURN 



APFSTAT LDTI 
BRA 



MTRFLG 
APFRST f Tf f 10 



LDTI MTTFLG 

APFRST LDPT MAROL 

LDPI MAR0H,MTTFLG>8,SMR 



CCLR 

BRA APFCC 



WANT THE RECEIVER STATUS? 



NO, WANT THE TRANSMITTER STATUS 



USE COMMON CODE POINT 
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1756. 
1757, 
1758. 
1759, 
1760. 
1761' 
1762. 



1763. 
1764*. 



1765 

1766 
1767 
1766 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 

1777 
1778 
1779 

1780 
1781 

1782 
1783 

1784 

1785 

1786 

1787 
1788 
1789 

1790 



1791 
1792 
1793'. 



PROD/TXT 



MICRO-PROCESSOR EMULATION SUPPORT CODE - HJS - 
APF INTERFACE INTERRUPT ROUTINES 



78JUL20 11S44 



003600L 



003600L 01010001 01011101 
003601L 0PIM0U1 11000000 



003602L 
003603L 
0036PI4L 
003605L 
003606L 
003607L 
003610L 

003611L 



003611L 
003612L 
003613L 
003614L 
003615L 
003616L 
003617L 
003620L 
003621U 
003622L 
003823L 
003624L 
003625L 
003625L 
0PI3826L 
003627L 
003630L 
003631L 
003632L 
003633L 
0PI3634L 
003635L 
003638L 
003637L 
003640L 
003841L 
003642L 
003643L 
003643L 
003644L 
003645L 



01010001 
11011100 
00110111 
00110U1 

01110001 
01000101 

11010010 



0001 
1101 
0011 
0101 
1101 
1101 
0011 
1101 
0011 
0001 
1101 
1101 



0001 
0010 
0111 

0001 
0100 

0111 
0010 
0000 
0111 
0001 
0100 
0111 



00110111 
00110111 
01010100 
00000111 
00010001 
00000110 
11010100 

11010111 

00110001 
11010000 
00110110 
11001110 

11010100 
11010111 

00U01H 
00010001 
00110111 



01001110 

01111100 
00100110 
00101001 
11110010 
01000000 
01010011 



10111100 
01101010 
01000111 
11111111 
01110010 
00001100 
00110110 
01010101 
00100001 

10111100 
01101100 

00001 100 
0000U00 

01000111 
00000001 
11111100 

11111011 

01111011 
0H00100 
00001100 
00110110 
01011100 
00100001 

iiiiiiii 

01011110 
00001100 

U100000 
11111011 

11000000 



IRINTJ 

, (4-0. 10 ADDED FOR EXTRA TIME TO GET MERE RELATIVE ITINT) 

[ NOTES THERE IS ROOM TO EXTEND CODE FOR SPEED, I.E. ELIMINATE COMMON ENDS 



IRNXTI 



IRNXT0 



IRNXTI 



LOPI MAROL,MTRLEN 

MBIN (MTADR, MCOIN); 
MBUSC ,MTADR*MCDIN 



(POINT TO RECEIVER BUFFER) 

STROBE FOR THE OATA BYTE 



TSTIR ,MIRNXT.XOR.MIRE0T,TEMP2 



BRj 



IREOT.FZ 



ROUTINE IRNXT 
BEGIN 

end; 
lotr apfrk,cc 



BRA 
STB 
LOTI 



IRNXT0,FZ 
SMR 

»1 



MWAIT ,MEMPFAP 



DOTP 

BRA 

LDPT 

LOTR 

MWAIT 



,AC#MOR 
IRTOVR,FC 

MOW 
APFRK,CC 

,MEMPFAP 



STB IMAR,SMR 

DORI APFRK,SB,1 

INCR APFRPiAPFRP 

MWAIT ,MgMPFAP 

LOTP MDR 

BRA IRNXTI, FC 

OOP MOW, IT 

MWAIT NOOP,MEMPFAP 



LDPT MAROH 

LDPR MAROL,APFRP,DMAR 



(RECEIVED END OF TRANSFER) 



CHANNEL A INPUT NEXT BYTE 



GET LENGTH LSB 

WAS ZERO, GET ITS MSB 



IF MSB ALSO ZERO, 
OVERFLOW, IGNORE THE DATA 
UPDATE LENGTH MSB 
(LOADS ZERO) 



UPDATE LENGTH LSB 
UPDATE POINTER LSB 

GET POINTER MSB 
UPDATE POINTER MSB 



LOAD i)P POINTER MSB 

AND LSB (WHICH IS HIGH BY ONE) 
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17941 
17951 
1796'. 



1797. 

1798*. 
1799*. 
1800* 
1801, 
1802, 
1803. 
1804*, 
1805. 
1806* 
1807. 
18081 
1809, 
1810. 
18U*. 
1812*. 



1813, 
1814. 



1813' 
1816. 
1817'. 



1818. 
1819. 



PROD/TXT 



003646L 00110111 00001101 



003647L 110U100 01011000 
003650L 00110001 00010101 
003651L 11011111 01001100 



003652L 01010001 01000000 
003653L 11011111 01010010 



003654U 



MICRO-PROCESSOR EMULATION SUPPORT COOF - HJS 
APF INTERFACE INTERRUPT ROUTINES 



78JUL20 11*44 



003654L 
003653L 
003655L 
003656L 
003657L 
003857L 
003660L 
003661L 
003662L 
003663L 
003664L 
00366SL 



01010001 10000000 



00110111 
00110111 

11005110 

11010100 

11010111 

00110011 
0«110U1 

01011001 
11011111 



00001101 
01000111 

11111111 

01001111 
00001100 

00110110 

00100001 
11111010 
00010010 



» 
* 



CMTRPNT) !■ MIFINJ 

RETURN 

MBIN 

JMP IRTOTA 
END IRNXT; 



STORE THE DATA 
(GET THE DATA) 



IRTOVR LDTI MFOVR 
BRA IRTEND 



SET OVFRFLAG 



1 
* 

IREOT 

. 3,15 

, ROUTINE IREOT 

, BEGIN 

(MTRFLG) :« tMTRFLG) .OR. MpOONj 

RETURN 

LDTI MFDON 



IRTEND 



IRTFND 



IRTDTA 
IRTFIN 



CHANNEL A END TRANSFER 
SET TRANSFER COMPLETE FLAG 



STB DMAR,SMR 



MWAIT NOOP,MEMPFAP 



DOTP ,OR,MDR 
LOPT MOW 
BRAX SRV8SN 

END IREOT; 



(SPECIAL COMMON ENOPOINT) 



(?? SET MEMPF IN STATUS?) 



JUST SET THE FLAG 

(SAVE DATA OR FLAGS AWAY) 
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1880, 
1821, 
1882. 
1823' 
1824, 
1825, 
1826, 
1827, 
1828J 
1829, 
1830. 
1831, 
1832, 
1833, 
1834, 
1835, 
1836, 
1837, 
1838, 
1839. 



1840, 
1841, 
1842, 
1843. 

1844. 

1845* 
1846. 

1847'. 

1848'. 

18491 

18501 
1851, 
18521 
1853. 



18541 
18551 
1856. 

1857'. 

1858' 
1859, 
I860, 
18611 



PROD/TXT 



003666L 
0036661 
003687L 



003670L 



003670L 
003671L 
003672L 
003673L 
0M3674L 

003675L 
003676L 
003677L 
003700L 
003701L 
003702U 

003703L 
003704L 
003704L 
003705L 
0037061 
0037071 
0037101 
003711L 
003712L 
003713U 
003714U 
0037151 
003716L 
003717U 
0&3720L 

003721L 
003722L 
003722L 
003723L 
003724U 
003725L 
003726L 



01000101 
11010010 



0001 
1101 
0011 
0101 
1101 
1101 
0011 
1101 
0011 
0001 
1101 
1101 



0001 
0010 
0111 
0001 
0100 
0111 
0010 
0000 
0111 
0001 
0100 
0111 



00110111 
00110111 
01010100 

00000111 

00010001 
00000110 
11010100 
11010111 
00110001 
11010000 
00110110 
11001110 
110101.00 
11010111 

00110111 
00010001 
00110111 

00110111 
00110111 



01000000 
00010100 



10111110 

00111011 

01000111 

ituiiii 

01000011 
0000U00 
00110110 
00010110 
00100001 
10111110 
00111101 
00001100 

00001100 
01000111 
00000001 

HUH10 
11111101 
01111101 

00110101 
00001100 
00U0110 
00101101 
00100001 

muni 
00101111 

00001 100 
11100000 

11111101 

11000000 
00001101 
01000111 



OATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 
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ITINTJ 



# 



ITnxt: 



ITNXT0 



ITNXT1 



003727L 11011100 00101000 
003730L 01010001 01011110 



TSTIT ,MITNXT,XOR,MITBQT 
8RA ITBOT,FZ 
BRA ITNXT 



*«ULTI-WAY»BRANCM CONTINUED* 
** FZ IT SHOULD BEU ** 



ROUTINE ITNXT 
BEGIN 
IF CARRY 
THEN BEGIN 

M80UT (MTADR, MCTEOT); 

(MTTFLG) la (MTTFLG) .OR, MFEOT* 

RETURN 



CHANNEL 8 NEXT BYTE 

BUFFER WENT EMPTY 

MARK END OF THE BUFFER 
MARK TRANSFER DONE 



LDTR 
BRA 
STB 
LDTI 



APFTK,CC 

ITNXT0,FZ 

SMR 

-1 



MWAIT ,MEMPFAP 



DOTP 

BRA 

LDPT 

LDTR 

MWAIT 



STB 

DORI 

INCR 

MWAIT 

LDTP 
BRA 

OOP 



,AC,MDR 
ITEOT.FC 
MDW 
APFTK,CC 

,MEMPFAP 



IMAR,SMR 

APPTK,S8,i 

APFTPiAPFTP 

,MEMPFAP 

MOR 

ITNXT1»FC 
MDW, IT 



TEST LENGTH LSB 

SKIP MSB UPDATE IF NOT ZERO 



TEST LENGTH MSB 

WAS ZERO, COMPLETED TRANSFER 

UPDATE LENGTH MSB 



UPDATE LENGTH LSB 
UPDATE POINTER LSB 



MWAIT NOOP,MEMPFAP 



LDPT MAROH 

LOPR MAROL,APFTP 

STB OMAR, SMR 



UPDATE POINTER MSB IF NEEDED 

USE POINTER MSB AND LSB 

BUT CORRECT FOR AUTO*INCREMENT 
OUTPUT THE DATA 



MBOUT (MTADR, MCDOUT, (MTTPNT)) / 

MBUSA ,MTADR*MCDOUT 

MBWAIT (WAIT ON MICRO-BUS) 

LDPI MIFADR,MTAOR+MCDOUT 



OATAPOINT CONFIDENTIAL INFORMATION - SEF PAGE I 
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1862. 

1863'. 

1864' 
1865, 
1866, 
1867* 
1868. 



1 869 . 
1870. 



187.: 

1872. 
1873'. 
1874* 
1875'. 
1876' 
1877, 
1878, 
1879, 
1880' 
188i; 
1882' 
1883' 
1884'. 
1885, 
1886. 
1887. 
1888'. 
1889* 
1890' 
1891, 
1892! 
1893, 
1894. 

18951 
1896, 
1897, 

1898. 



PROD/TXT 



MICROPROCESSOR EMULATION SUPPORT CODE * HJS • 
APF INTERFACE INTERRUPT ROUTINES 



78JUU20 11:44 



003731L 
003732L 
0037331 
003734L 
003735L 
003736L 



003737L 
0B3740L 
083741L 
003742L 
003743L 
003744L 
003745L 
003748L 
003747L 
00375OIL 

003751L 
003751L 
803752L 



003753L 



00110U1 

11010100 
11010111 

00110001 
00110111 
00110111 



01110001 
01000101 
11010011 
01010001 
00110U1 
01010001 
00110111 
00110111 
01010&01 

11011111 



01010001 
11011111 



00100110 
00100101 
00001 100 
00118110 

001001H 

00101001 



11110010 
00100000 
01001011 

01011001 
11000000 
11181111 
11100800 
01000111 
01008000 
01018000 



81101110 
0081001 1 



003753L 01010001 81111110 



003754L 
083754L 
883755L 
803756L 
003757L 
083760L 

003761L 
0037621 



11011180 

00110111 

80110111 
01110881 
08010111 
01010101 
11011111 



00018811 
00100110 
80101001 
11110010 
10100018 
11800000 
01010810 



ITEOT 



ITBOT 



* 
ITENO 



MWAIT ,MEMPFAP 
MBUSP MOR 



(??? * WAIT IN MEMORY) 



M8US8 (STROBE DATA OUT) 

IF MIRPT IN IAKCOOE WAS REPEAT BIT SET? 

THEN (MTTFLG) !■ (MTTFLG) .OR, MFRPTl YES, THEN SET REPEAT FLAG 

RETURN 

TSTIR ,MFRPT>1,TEMP2 (IS REPEAT NAK BIT SET?) 



(NO, DONE) 



(YES, THEN SET IT IN FLAG BYTE) 



(INFORM GOT END OF TRANSFER) 



BRA IRTFIN,TZ 

OLOPI MARO, MTTFLG., SMR 



LDTI MFRPT 
BRA IRTFNO 



LDTI MTAOR+MCTEQT 
BRA ITENO 

END? 
END ITNXTj 



ROUTINE ITBOT CHANNEL 8 READY OR REPEAT 

BEGIN 

MBOUT (MTADR, MCTRDY); SET THAT READY TO TRANSFER 

LDTI MTADR+MCTRDY 

(MTTFLG) I« (MTTFLG) .OR. (IAKOOE < 1 .AND. 0388) f 

SET READY FLAG AND MAYBE 
THE REPEAT FLAG - NAK 

BRA ITEND (USE COMMON ROUTINE) 

RETURN 

END ITBOT; 



M8WAIT 

STB MIFADR,MIFST8 

LDTR TEMP2 

SHIFT SL 

OOTI ,ND,MITRPT<1 

BRA IRTEND 



(THE COMMON UPDATE POINT) 

(GET INTERRUPT CODE BITS) 

(FOR MFDON & MFRPT STATUS BITS) 
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I 8 " « 

1900*. 
19Pif. 



PROO/TXT 



1902. 
1903; 

1904' 
1905, 
1906. 
19471 
1948. 
1949'. 



1950' 
1951, 
1952. 
1953'. 



0037631 
0&3764L 
0037651 
003766L 
003767L 
003770L 

003771L 
003772L 



003773L 
003774L 
003773L 
003776L 
0037771. 

002000 

002000 
002000 



0101000! 

11011100 

0011B111 
01010001 
0011011! 
0«110111 

01011001 
11001111 



11111111 
11111111 

it it it n 

liiiiiii 
iiutiii 



00001110 
00001011 
00100110 
00000000 
00100111 

00101001 

11111011 
01101010 



11111111 
HlltlH 
11111111 
11111111 
11111111 



MICROPROCESSOR EMULATION SUPPORT COOE *■ HJS - 
APF INTERFACE INTERRUPT ROUTINES 



78JUL20 11144 



MEMPFAP MSUSC , MTADR+MCEINT, MBQFF 



TURN THE BUSS OFF 



BRAX MEMPFS 

XIF 

IFC TYPE 

XIF 

TABPAGE PROOL 



BEFORE DO INTERRUPT COOE 



PRODLEN EOt) 
USE 
SKIP 
END 



S»PRQDP 

PROOL 

PRODLEN 
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PROD/TXT 



OATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE i 
MICRO-PROCESSOR EMULATION SUPPORT CODF * HJS - 



78JUL20 11*44 



5)8340?! 
010017 
010015 
003421 
003414 
003415 
010017 
010016 
003412 
002542 
002605 

002765 
002667 
09355W 
002516 
002525 

000001 

003503 
003442 
003466 
003460 
003512 
003534 
003524 
002717 
010014 
010013 
003572 
003567 
010016 
010015 
002540 



003335 
000203 

000253 
020006 
002702 
002737 



002046 

002042 
000100 
000315 

000010 



AC 

ACSOO 

ACCTL 

ACO 

ACOONF 

ACENO 

ACOUT 

ACPH 

ACPL 

ACSHRT 

ALUOP 

ALUXGT 

AMLAOR 

AMLINT 

AMLNT 

AMLRET 

AP4 

AP7 

APF 

APFCC 

APFCTL 

APFGRCV 

APFGXMT 

APFLOD 

APFLRCV 

APFLXMT 

APFNT 

APFRK 

APFRP 

APFR8T 

APFSTAT 

APFTK 

APFTP 

APS 

04 

B5 

86 

B7 

BEEP 

BPINIT 

8P8HRT 

BR 

BSDO 

BSOON 

C0 

CI 

CALL 

CALLCC 

CAP55IO 

CAPABILI 

CAPAPF 



330 
1344 

♦ 1614 

*771A 
*748A 

♦ 1641 

♦ 1636 

♦ 1637 

*76IA 

• 751A 
*1633 

♦ 739 

♦ S14 
966 

♦ 1087 
*965 

*1732 

♦ 677 
*710, 

*91A 

♦ 1704 

♦ 1674 

♦ 1694 
♦1669 
M708 

♦ 1722 

♦ 1716 

♦ 1025 

*68»A 

♦ 871 A 

♦ 1750 

♦ 1745 

*70»A 
*69l A 

♦ 726 
1580 
1581 

123IA 
1580 

♦ 1586 

♦ 1580 

♦ 1581 

M21A 

♦ 974 

♦ 1042 

777 
1125 
#166 
*143 

♦ 1231 A 
*126»A 
♦120JA 



406 

1622 

961 

959 

1639 
1627 

1823 



1629 
708 
769 
968 
970 
998 



120JA 
1753 
1667 
1687 
1682 
1678 
1714 
1709 

967 
1685 
1586 
1746 
1739 
1691 
1692 

1581 
1564 
1582 
1581 

1590 
1609 

968 

879 

1027 
798 

1240 



126U 
126IA 



461 
1705 

1123 



1625 

724 
1741 

1000 

947 



1713 

1712 



1720 
1719 

1582 
1628 
1583 
1582 



992 



809 
1785 



769 
1777 

1125 



1631 



958 



1772 
1785 



1835 
1848 

1583 

1584 
1583 



1052 



1181 
1648 



798 
1840 

1595 



1634 



809 



1597 



615 



1637 



1113 



1121 



1181 



1 182 



1268 



997 



1M04 



1014 



1122 



1128 



1354 



1582 



1780 
1793 



1843 
1856 

1584 

1626 
1584 



1053 
1268 



1784 



1847 



1624 

1638 
1622 



1741 



1638 



1764 



1796 



I860 



1893 



1901 
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PROD/TXT 




MICRO" 


PROCESSOR 


EMULATION SUPPORT CODE 


W! fi tj %5 ff 
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000004 


CAPBLUE 


♦119JA 


126IA 






















009200! 


CAPCOM 


♦124IA 


126IA 






















000000 


CAPCYNT 


♦12i*A 


126JA 






















000000 


capgupv 


♦118IA 


126IA 






















000001 


CAPMICR 


♦117JA 


126SA 






















000000 


CAPRIH 


♦122IA 


1261A 
























CC 


190 


234 


318 


362 


394 


492 


767 


77% 


782 


787 


792 


959 






1123 


1178 


1316 


1345 


1686 


1692 


1752 


1772 


1780 


1835 


1843 


1896 


007000 


CDOR 


* 1341 A 


915 






















006000 


CDQX 


*133»A 


926 


928 






















CF 


183 


185 


219 


411 


424 


427 


590 


593 


705 


719 


735 


765 






766 


797 


803 


808 


815 


913 


927 


969 


993 


995 


999 


1011 






1035 


1051 


1053 


1085 


1108 


1114 


1135 


1139 


1140 


1143 


1183 


1221 






1224 


1234 


1237 


1240 


1242 


1248 


1252 


1257 


1267 


1269 


1283 


1591 






1595 


1597 


1637 


1666 


1885 


1691 


1712 


1713 


1719 


1720 


1765 


1784 






1785 


1793 


1847 


1848 


1856 


1868 


1895 














CHUF 


946 
























003351 


CLICK 


♦ 1602 
























003338 


CLICKS 


♦ 1591 


1608 


1610 




















000360 


CLKINI 
COMF 


♦ 1584 
1084 


1607 






















030011 


COMMQDE 


*96IA 


913 


927 




















002646 


COMROO 


♦ 903 


871 






















002653 


COMTOO 
CSRF 


♦ 917 
912 


873 
























OIMP 


205 


252 


338 


399 


462 


537 


638 


660 


1328 


1676 


1680 




003000 


OLSOO 


♦ 1105 


1068 






















003031 


OLACNINC 


♦ 1126 


1124 






















002760 


OLOO 


♦ 1068 


868 






















003010 


DLNL 


♦ 1113 


1108 






















003060 


OLNLR 


*1146 


1140 






















003032 


DLNXT 


*U33 


1115 






















000310 


DLYLNG 


♦ 1582 


1630 






















000316 


DLYSRT 


*1583 


1633 
























OMAR 


496 


1236 


1245 


1258 


1288 


1698 


1702 


1724 


1728 


1793 


1812 


1857 


002152 


EIROJ 

FCLEAR 

FCOINT 


♦ 261 
1053 
1052 
























002022 


FETCH 


♦ 128 


362 


543 


641 


1337 


1706 














002024 


FETCHI 


♦ 129 
1598 


307 


619 


672 


778 


783 


788 


793 


804 


816 


1594 


1596 


002026 


FETCHS 


♦ 130 


220 


348 


578 


594 
















002020 


FETCHW 


♦ 127 


234 


256 


662 


1730 
















002034 


FETLIMP 
FIAOR 
FKMAST 
FKRWMF 


♦ 136 

994 

1053 

1053 


83 


102 




















004000 


FLEX 

ML2MRW 
HL2MRL 


♦132JA 
459 
459 


490 

490 


720 
720 


1326 
1327 


















002662 


HUMOQ 
1021 


♦ 934 
661 


882 
671 


736 
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PROO/TXT 




MICRO- 


PROCESSOR 


EMULATION SUPPORT CODE - HJS «* 


78JUL20 11144 




I35n 


618 


640 


671 














IOCOOH 


136 


















IDCODL 


138 


















IIMP 


255 


407 


459 


497 


539 










IM2MRH 


538 


638 


660 














IM2MRL 


638 


660 
















IMAP 


79 


98 


129 


178 


182 


186 208 


247 


251 336 465 






577 


588 


589 


616 


704 


1138 1232 


1330 


1668 1783 1846 


;' 


TMP8 


81 


















IMPFO 


782 


787 


792 


803 


815 










I MP W 


491 
















(' 


IMPI 


204 


2PI6 


404 


460 


463 


535 777 


782 


787 792 8913 




IMPL 


248 


398 


457 














IMPO 


252, 


255 


337 


340 


406 


497 500 


539 


540 


020005 


10 


*41 « A 


271 


489 


16&8 


1678 


1746 






003654 


IPEOT 


*1804 


1766 














003600 


IRINT 


♦ 1757 


1037 














003811 


IRNXT 


• 1768 


1034 














003625 


IRNXT0 


♦ 1782 


1773 














003643 


IRNXT1 


*1791 


1788 














003663 


IRTOTA 


♦ 1816 


1797 














003655 


IPTEND 


♦ 1811 


1801 


1898 












003664 


IRTFIN 


♦ 1817 


1869 














003657 


IRTFND 


♦ 1813 


1872 














B03652 


IRTOVR 


♦ 1800 


1778 
















IT 


461 


1125 


1240 


1785 


1789 


1848 1852 






003753 


IT80T 


♦ 1880 


1823 














003754 


ITEND 


♦ 1892 


1876 














003751 


ITEOT 


♦ 1874 


1841 














003866 


HINT 


♦ 1821 


1036 














003670 


ITNXT 


*1826 


1671 














003704 


ITNXT0 


♦ 1845 


1836 














003722 


ITNXT1 


♦ 1854 


1851 
















ITW 


913 


927 


995 


999 


1224 


1595 








IVIOUf 


545 


1349 














002421 


IVI0L2 


♦ 545 


80 


«r 5F 


534 










003330 


IVI0L3 


*1349 


1313 


1593 


1665 


1738 








020004 


17 


♦ 401 A 
1682 


80 
1709 


99 
1739 


162 


234 


362 456 


636 


658 1285 1334 


002433 


JUMP 


♦ 580 


271 


567 












002423 


JUMPCC 


♦ 550 
















003163 


KBCLS 


♦ 1237 


1250 


1260 












003084 


KBDfDG 
KBDO 


♦ 1151 

1233 


tin 


1144 












, 003170 


K9D0N 


♦ 1240 


1225 


1255 












003070 


KBDWAIT 


♦ 1175 


1176 














003152 


KBGET 


♦ 1232 


1223 














. 003140 


KBKEY 


♦ 1218 


1179 














* 003177 


KBKSl 


♦ 1247 


1188 


1190 


1227 










003176 


KBKS2 


♦ 1245 


1192 


1194 


1198 


1200 


1206 1208 






, 003204 


KBOPN 


♦ 1252 


1266 














V 003141 


K8REG 


♦ 1221 


1202 


1204 


1212 


1214 


1216 







576 






1667 
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MICRO- 


PROCESSOR 


EMULATION SUPPORT CODE 


* HJS m 
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003213 


KBREINT 
KRSC 


*1257 
1241 


1196 
1268 


1210 




















010001 


K8SCNT 


♦ 49JA 


U78 


1181 


1224 


1234 


12481 


1242 


1268 


1269 








003140 


KBTSL 


♦ 1217 


1182 






















002502 


L7S 


*644 
























002505 


L7S! 


♦ 660 


658 






















002454 


L06 


♦ 599 
























002464 


L07 


*621 
























002467 


L07I 


*638 


636 






















003304 


LDCFLO 


*!327 


1334 






















003266 


LDCFLP 


*1320 


1344 






















003324 


LOCFNL 


M339 


1319 






















003264 


LOCFPT 

LOCH 
UOMAP 


♦ 1318 
1332 
1143 


1322 
1148 






















002513 


LOS 


♦ 664 


























LIMP 


81 

503 


100 

637 


131 
659 


179 
1325 


235 
1742 


248 


315 


363 


396 


457 


467 


491 


030000 


LINK 
LTREG 


*82»A 
1345 
137 


190 
1347 


210 


234 


318 


341 


362 


77% 


771 


1108 


1140 


1243 


003255 


LOOCF 
LSPKR 
LUF 


*1294 

1641 

777 


1705 






















010003 


MADR 


*54{A 


995 
























MARCH 


219 


403 


592 


1033 


1142 


1174 


1670 


1677 


1751 


1792 


1855 


1870 




MAROL 


202 


219 


403 


536 


593 


1033 


1118 


1134 


1143 


1174 


1332 


1670 






1684 


1690 


1710 


1717 


1750 


1762 


1793 


1856 


1870 








010004 


MBITS 
M80FF 
MBQN 
M8PAGE 


*55*A 
968 
1741 

1012 


1901 






















010005 


M8STAT 
MCOIN 
MCDOUT 
MCEINT 


*56*A 
1764 
1861 
1901 


999 






















010006 


MCRCH 


*57tA 
























010007 


MCRCL 

MCTEOT 

MCTROY 


*5s:a 

1875 
1884 


























MDR 


137 


181 


185 


250 


255 


335 


340 


406 


495 


500 


588 


592 






618 


640 


707 


723 


1121 


1137 


1142 


1239 


1254 


1264 


1267 


1332 






1697 


1701 


1705 


1777 


1787 


1815 


1840 


1850 


1863 








010010 


MOSKS 


*59!A 
























010011 


MDSKT 


*60IA 


























MOW 


204 


209 


480 


466 


661 


1121 


1233 


1239 


1254 


1267 


1711 


1718 






1725 


1729 


1779 


1789 


1816 


1842 


1852 












002254 


MEMNBAS 


*407 


402 






















002276 


MEMPA 


*424 


417 






















002225 


MEMPFS 


♦371 


180 


184 


218 


249 


254 


334 


339 


464 


499 


1352 


1903 


002224 


MEMPF2 


• 389 

1088 


127 


136 


587 


591 


617 


642 


706 


721 


828 


891 


1031 



OATAPOINT CONFIDENTIAL INFORMATION - SEE PACE 1 



AGE 6? 


PROD/TXT 




MICROS 


PROCESSOR 


EMULATION SUPPORT CODE • 


* HJS » 


78JUL20 11144 




0013333 


MEMPF3 


♦ 1352 


1149 


1696 


1700 


1704 


1723 


1727 












083763 


MEMPFAP 


*198i 


1776 


1781 


1786 


1798 


1814 


1839 


1844 


1849 


1853 


1862 




003332 


MEMPFCF 


♦ 1351 


1329 






















803062 


MEMPFOL 


♦ 1148 


1109 


1117 


1120 


1133 


1136 


1141 


1235 


1238 


1253 


1263 


1264 


082107 


MEMPFPS 


*218 


207 






















082257 


MEMPQ 


♦ 409 


405 






















002303 


MEMPR 


♦ 428 


425 






















002274 


MEMPS 


*421 


413 






















802301 


MEMPW 


*427 


415 






















082272 


KEMPX 
MFOON 
MFOVR 
MFRPT 


♦ 419 
1810 
1800 
1868 


410 
1871 


422 






















MIFAOR 


968 


1852 


1853 


1741 


1764 


1861 


1894 


1901 












MIFOAT 


968 


1852 


1053 


1741 


1863 


1981 
















MIFIAK 


991 


























MIFIN 


992 


1798 
























MIFST8 


968 


1052 


1853 


1741 


1764 


1864 


1894 


1901 












MIREOT 


1785 


























MIRNXT 


1835 


1765 
























MITBOT 


J 822 


























MITNXT 


1035 


1822 
























MITRPT 


1897 
























028802 


MO 


*38tA 


127 


136 


188 


184 


207 


218 


249 


254 


334 


339 


485 






410 


464 


494 


499 


587 


991 


617 


639 


706 


721 


828 


891 






1831 


1088 


1189 


1117 


1120 


1133 


1136 


1141 


1235 


1238 


1253 


1263 






1284 


1329 


1696 


1788 


1784 


1723 


1727 


1776 


1781 


1786 


1798 


1814 






1839 


1844 


1849 


1853 


1862 


















MOOW 


283 


397 


892 


1032 


1118 
















020803 


MP 


• 39! A 


127 


136 


188 


184 


207 


218 


249 


254 


334 


339 


485 






410 


464 


494 


*T 33' «P 


587 


591 


617 


639 


641 


706 


721 


828 






891 


1031 


1888 


1109 


1117 


1128 


1133 


1136 


1141 


1235 


1238 


1253 






1263 


1264 


1329 


1696 


1780 


1784 


1723 


1727 


1776 


1781 


1786 


1798 






1814 


1839 


1844 


1849 


1853 


1862 
















MR2IMH 


399 


























MR2IML 


399 


























MR2PCH 


82 


101 


130 


187 


2S3 


1289 


1669 














MR2PCL 


82 


101 


130 


187 


253 


1289 


1669 














MR2XXH 


542 


1335 
























MR2XXL 


541 


1331 






















010013 


MSECT 


*621A 


























MTAOR 


1026 


1764 


1861 


1875 


1884 


1901 














003424 


MTART 


#1647 
























810812 


MTRAK 

MTRFtG 

MTRLEN 

MTRPNT 

MTTFLG 

MTTLEN 

MTTPNT 


*61U 
1745 
1762 
1684 
1748 
1033 
1698 


1718 
1751 
1670 
1717 


1870 
1677 




















002426 


NOJ 


♦ 569 


164 






















802762 


OMDO 


♦ 1872 


876 























OATAPOIMT CONFIDENTIAL INFORMATION - SEE PAGE 1 



PAGE 61 


PROD/TXT 






MICRO- 


PROCESSOR 


EMULATION SUP 




PC2MRH 


128 


347 


722 


897 


1288 




PC2HRL 


128 


347 


722 


897 


1288 




PCI 


179 


315 


1742 






002110 


PCMOD 


*213 


188 








010000 


POLNP 


*48IA 


1114 


1135 






002216 


POP 


♦ 350 










0*2166 


POP8T0 


♦ 318 


458 


1743 






002167 


POPSTK 


♦ 319 


362 


364 






B00040 


PRE 


*3IA 










000000 


PRQC 


♦130IA 










002000 


PROD 


♦131 «A 


63 








002000 


PRODL 


♦ 65 


67 


510 


1101 


1612 1949 


002000 


PROOLEN 


*1950 


1952 








002000 


PROOP 


*67 


1950 








002070 


PSHST0 


♦ 190 


256 


408 


501 




002071 


PSHSTK 


♦191 


234 


236 








PSWI 


282 
1737 


397 


533 


827 


892 1032 




pswn 


282 


827 








002120 


push 


*222 










002126 


PUSHI 


♦ 238 










010002 


G 


*46tA 


492 


767 


1240 


1316 1752 


030006 


RCRCM 


*93IA 










030007 


RCRCL 


*94»A 










030005 


ROATA 
ROLM 


*92*A 
1336 


1351 








002160 


RETCC 


♦ 286 










002212 


RETS 


♦ 343 


316 








002183 


RETURN 


♦ 309 


284 








000011 


REV 
RIN16 


*2IA 

468 


504 








030004 


RPNTR 


♦911 A 










030003 


PSTAT 


♦ 901 A 












SB 


200 


493 


498 


777 


803 1135 


010002 


SCANSV 

SCOSPNL 

SCHUMS 

SCLST 

SCMBUS 

SCONMS 


*50IA 
867 
881 
1092 
878 
875 


1224 

1064 


1234 








SCRAM 


428 


1089 


1091 








8CROM 


1285 


1287 


1290 








SCROML 


419 












SCSDLCR 


870 












SCSOLCT 


872 












SOLCOT 


930 












SOLM 


1315 












SEATTKY 


1207 












SE8RLS 


403 












SEDL80T 


1131 












SEQSPKY 


1189 












SEFUNCl 


1205 











78JUL20 11144 



1090 



1110 1286 1312 1592 



1664 



1896 



1178 



1318 



1784 



1847 



OATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 



PAGE 62 


PROO/TXT 






MICRO* 


PROCESSOR 


EMULATION SUPPORT CODE 


•» MJS * 


78JUL20 11144 






SEFUNC2 


1191 




















SEFUNC3 


1199 




















SEFUNC4 


1193 




















SEFUNC5 


1197 




















SEINTKY 


1195 


1262 


1265 
















SEK80KY 


1187 




















8EKB0WN 


1226 




















SEKBRQY 


1201 


1203 


1211 


1213 


1215 


1218 










SEK8S1 


1174 




















SELFREQ 


1118 




















SERSTKY 


1209 


1 262 


1265 














002000 


SIR0 


♦ 72 


















002010 


SIR* 

SKCH 
SL 


*85 
1321 
1896 




















SMR 


79 


98 


129 


178 


182 


219 247 


251 


328 336 347 


403 






490 


496 


577 


586 


589 


593 618 


638 


704 720 897 


1118 






1134 


1138 


1236 


1247 


1258 


1327 1684 


1690 


1698 17512 1751 


1774 






1783 


1812 


1837 


1846 


1857 


1870 










SP2MRH 


203 


327 


















SP2MRL 


328 




















SPH 


542 




















SPIH 


539 




















SPIL 


200 


540 


















SPL 


541 




















SPOL 


201 


333 


















SR 


767 




















SRMEMPE 


418 




















8RRSTRT 


1283 




















SRSTPE 


421 




















SRSYSHF 


409 


















002755 


SRVRSN 


♦ 1059 


1817 
















002620 


SRVDO 


♦ 841 


133 
















002034 


5RVENO 


♦ 134 


898 
















002040 


SRVIO 


♦ 138 


894 
















002618 


8RVNXT 
SRVREO 


♦ 830 
132 


914 
838 


931 

1064 


960 


1146 


1642 








002611 


SRVRPT 


*821 


















002634 


8RVRTW 


♦ 88 4 


839 


1065 
















STATUS 


163 


306 


566 


1113 


1175 


1222 1249 


1259 








STBOTLN 


1113 




















STEK 


394 




















STK8KC 


1222 


1259 


















STK8NS 


1249 


1259 


















STKBROY 


1175 


















002336 


STKL 


♦ 470 


456 
















002357 


STKLPF 


♦ 498 


494 
















002305 


STK8 

STLA 

STLSP 

STLW 

STUSCF 


*433 
416 
411 
414 
163 


306 


566 















PAGE 63 



PRQO/TXT 



DATAPOINT CONFIDENTIAL INFORMATION * SEE PAGE I 
MICRO-PROCESSOR gMULATiriN SUPPORT CODE - HJS m 



78JUL20 11144 



002400 
002374 

030001 



SVAMUI 

SVAVIOL 

SVONEM8 

SVWVIOL 

SWRPT 

SWU8ER 

SYSM 

SYSRET0 

SYSRET1 
TEMPI 



030002 TEMP2 



030001 


TEMPH 


030002 


TEMPU 


000001 


TYPE 




UCFLG 




URA 




UR8 




URC 




URM 




URI 




URL 




URO 


030012 


URPNTR 


002153 


USERET 


030010 


UXPNTR 


000002 


VER 


030016 


XCRCH 


030017 


XCRCL 


030015 


XOATA 


030014 


XPNTR 


030013 


XSTAT 



969 
424 
1085 
427 
827 
282 

♦ 512 

♦ 507 
508, 
*83IA 
818 

1597 

*84t A 
1035 

♦ 85JIA 
*86?A 

*5f A 
1906 

797 
1314 
1703 
1685 

481 

461 

235 

461 

♦ 97IA 
*273 

*95tA 

MP A 

M01*A 

M02IA 

M00IA 

*99tA 

♦ 98 I A 



893 

397 

489 

1743 

B5IA 
1139 

86! A 
1051 
185 
183 

tat a 

80S 

1725 
1691 

498 

493 

383 

493 

182 



1090 
533 



394 
1143 

705 
1053 
219 
219 
117IA 



1288 

1032 



411 
1183 

719 

1666 

424 
1 191 A 



1110 



590 
1184 

735 
1765 

427 
124IA 



1312 



593 

it mm ne • 

766 

1868 

969 
869 



1713 

1335 

498 

461 

498 



1720 
1699 
1314 
493 
1685 



159? 



765 
1237 

797 

1895 

1085 
877 



1664 



777 

1248 

798 



1283 

902 



1737 



782 

1252 

8&8 



973 



787 

1257 

809 



1003 



792 
1267 

993 



1010 



803 
1591 

1011 



1039 



1711 

1711 

637 

1691 



1718 
1712 

659 
1695 



1713 
1331 
1699 



1718 
1695 
1703 



1719 
1712 



1720 

1719 



1725 



